如何将变量传递到 split() 中？

Question

我想在 for 循环中运行 split() ，但是当我传递变量文本时，它只是创建一个包含文本的新 data.frame 。这里的想法是基于CMPD_DF_1[5]、CMPD_DF_2[5]拆分CMPD_DF_1、CMPD_DF_2等> 等。如何传入 data.frame 而不是字符串？

for (i in 1:10) {
  split(paste("CMPD_DF", i, sep = "_"), 
        paste(paste("CMPD_DF", i, sep = "_"), "[5]", sep=""))
}

Answer 1

对于最初的困惑感到抱歉。您可以将数据框放入列表中，然后使用lapply。这假设您要拆分的列在每个数据框中都是相同的。我将使用更通用的解决方案进行更新...

d1 <- data.frame(x =1:10, y = rep(letters[1:2], each = 5))
d2  <-  d1

l <- list(d1,d2)
myFun <- function(x){
  return(split(x,x[,2]))
}
lapply(l,myFun)

这是一种使用 maply 执行此操作的方法，该方法允许在每个数据框中进行不同的拆分列。您只需在单独的列表中预先指定列并将它们传递给 mapply：

l <- list(d1,d2)
splitColumns <- list("y","y")
myFun2 <- function(x,col){
  return(split(x,x[,col]))
}
mapply(myFun2,l,splitColumns,SIMPLIFY = FALSE)

Answer 2

您的代码不起作用，因为您没有将 data.frame 传递给 split。您正在传递一个字符向量，其中包含带有 data.frame 名称的字符串。像这样的东西应该可以工作，但它不太像 R。 @joran 的答案更可取。

for (i in 1:10) {
  dfname <- paste("CMPD_DF", i, sep = "_")
  split(get(dfname), get(dfname)[5])
}