使用循环

Question

创建数据表，让我们说我有一个data.table

DT=data.table(name = sample(letters[1:25],30,replace=T), value =rnorm(3000)) 

我想分裂DT的名称，并创建新的DTS，如姓名DT_a，对应的名称值DT_b。那我该怎么办呢？

Answer 1

试试这个：

DTs = split(DT, DT$name) 
lapply(names(DTs), function(x) assign(paste0('DT_',x), DTs[[x]], envir=.GlobalEnv)) 

Answer 2

我们可以使用list2env

lst <-split(DT, DT$name) 
list2env(setNames(lst, paste0("DT_", names(lst))), envir = .GlobalEnv) 

不过，建议保持在一个list，而不是在全球环境中创建多个数据集。但是，如果这只是为了了解创建对象的可能性，则可以使用list2env。