Question

我有一个数据框列表lsD和一个矢量列表lsV。向量的长度与数据帧中的行数相同（在玩具示例中= 5）。

我想将向量添加为每个数据帧的附加列。我得到它使用for循环，但我的一般问题是：如何在没有for的情况下按名称迭代两个列表？有lapply方法吗？

这是一个玩具示例和我使用for循环的解决方案：

lsV <- list(x = sample(LETTERS[1:5], 5,replace=T), 
            y = sample(LETTERS[1:5], 5, replace=T), 
            z=sample(LETTERS[1:5], 5, replace=T))

lsD <- list(x = data.frame(matrix(sample(LETTERS[1:5], 20,replace=T), ncol=4)), 
        y = data.frame(matrix(sample(LETTERS[1:5], 20,replace=T), ncol=4)),
        z =  data.frame(matrix(sample(LETTERS[1:5], 20,replace=T), ncol=4)))

for (i in 1:length(lsV)) {lsD[[i]]<-cbind(lsD[[i]], lsV[[i]])}

有什么想法吗？我尝试了以下，但当然它没有工作。谢谢！

lapply(names(lsD), function(X) {lsD$X<-cbind(lsD$X, lsV$X)})

Answer 1

Map功能在这里很有用

 Map(cbind, lsD, Z=lsV)

Map和mapply都是应用式函数，它们接受多个参数并同时迭代它们。

和

lapply(names(lsD), function(X) {lsD$X<-cbind(lsD$X, lsV$X)})

永远不会有效，因为您无法在＆＃39; $＆＃39;中使用变量名称。运营商。你可以使用

lapply(names(lsD), function(X) {lsD[[X]]<-cbind(lsD[[X]], lsV[[X]])})

将向量列表与R中的数据帧列表合并

1 个答案: