如何遍历几个data.frames的元素

Question

我想遍历具有相同编号或 ID 的不同 data.frame 的元素：df1、df3、df4、df66、df76，此外我们还有 pp1、pp3、pp4、pp66、pp76 和 dd1、dd3、dd4 , dd66, dd76。每个 data.frame 都有两列频率和能量：

df1 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
df3 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
df4 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
df66 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
df76 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))

pp1 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
pp3 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
pp4 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
pp66 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
pp76 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))

dd1 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
dd3 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
dd4 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
dd66 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))
dd76 = as.data.frame(cbind("frequency"= runif(140) ,"energy"=runif(140)))

所以首先我们创建一个 ID 向量来遍历这些数字

ID = c(1, 3, 4, 66, 76)

我试过了，很明显不行

for (i in ID){
   dfmaster[i] <-  df[i]$frequency + pp[i]$frequency + dd[i]$frequency
}

我也尝试将 paste0 用作：

for (i in ID){
   paste0("dfmaster",i) <-  paste0("df",i)+paste0("pp",i)+paste0("dd",i)}

因为这会创建一个角色。但实际上我会如何使用例如 matlab。

Answer 1

@Peter 关于制作可重现示例的评论非常相关，但您的问题很清楚，可以提供一些一般性建议，尽管在没有测试数据的情况下，这都是未经测试的代码。

循环对象的“R 方式”是使用lists。您可以将独立对象放入如下列表中：

dfList <- list(df1, df3, df4, df66, df76)
ppList <- list(pp1, pp3, pp4, pp66, pp76)
ddList <- list(dd1, dd3, dd4, dd66, dd76)

虽然同时创建它们和列表会更有效。

一旦对象在列表中，您就可以编写：

dfMaster <- lapply(
              1:length(dfList),
              function(i) {
                dfList[[i]]$frequency + ppList[[i]]$frequency + ddList[[i]]$frequency
              }
            )

其中lapply将第二个参数中的函数应用到其第一个参数的每个元素并返回一个列表。

或者，如果您想使用for 循环，您可以编写：

dfMaster <- list()

for(i in 1:length(dfList)) {
  dfMaster[[i]] <- dfList[[i]]$frequency + 
                     ppList[[i]]$frequency + ddList[[i]]$frequency
}

[注意这里需要在运行循环之前声明一个空列表来包含for循环的结果。]

虽然我通常会避免 for 循环，因为您很容易被 lazy evaluation 发现。

如果 ID 相关，您可以命名列表的元素；

ID <- c(1, 3, 4, 66, 76)
names(dfList) <- ID
names(ppList) <- ID
names(ddList) <- ID

dfMaster <- lapply(
  ID,
  function(i) {
    dfList[[i]]$frequency + ppList[[i]]$frequency + ddList[[i]]$frequency
  }
)

或在创建列表时命名列表的元素：

dfList <- list("1"=df1, "3"=df3, "4"=df4, "66"=df66, "76"=df76)