r - 使用 for 循环或 lapply 遍历 R 中列表中的不同数据帧

Question

如果这个问题看起来很初级，我深表歉意。我有点不清楚是否可能/如何在 R 中使用带有数据框列表的循环。

我的数据帧是较大数据帧的子集:

billysuzy <- subset(userlist,user1 %in% c("billy","suzy"))
joefrank<- subset(userlist,user1 %in% c("joe","frank"))
georgelenny <- subset(userlist,user1 %in% c("george","lenny"))

我想遍历并找到每个子集的相同变量(时间和 simscore)的相关值。

cor(time, simscore)

但是，我很不确定如何构建这样的 for 循环，也不确定如何构建一个函数以在 lapply 中附加和分离。

我在想:

somelist <- list(billysuzy, joefrank, georgelenny)

带 lapply:

corz <-  lapply(somelist, function(df)  detach(), attach(df),cor(time, simscore))
lapply(corz, print)    

或用于:

for (i in 1:length(somelist)){
      detach()
     attach(somelist[i])
    cor(time, simscore)
    }

我很抱歉冒犯了任何人的 R 敏感性，或者如果这似乎是两个问题 - 答案是描述如何做一件事的任何一个，即循环遍历列表中的 dfs 并找到相应的值。

Answer 1

我真的建议避免 attach和 detach .

你可以试试这样的

corz <-  lapply(somelist, function(df)  cor_time_sim = cor(df$time, df$simscore))

或者

corz <-  lapply(somelist, function(DF)  {with(DF, corst <-  cor(time, simscore))})

或者

corz <-  lapply(somelist, with, corst <-  cor(time, simscore))