如何向列表中的每个数据集添加新列

Question

我看过一些类似的问题，但它们并没有真正帮助我。

我有一个包含4个数据框架的列表，我想在每一列中添加一个列。

下面是我尝试过的一些命令。它们都只会产生一个由4个向量组成的列表(只是多样性)。

abundance_tables<-lapply(abundance_tables,function(tab) tab$diversity<-diversity(tab) )
abundance_tables<-mapply(function(tab) tab$diversity<-diversity(tab),abundance_tables,SIMPLIFY = F )

任何帮助都是非常感谢的。

谢谢

Answer 1

您不提供示例数据，所以我生成一个4data.frame的样例data.frame。

lst <- lapply(1:4, function(x) data.frame(one = LETTERS[1:4], two = 1:4))

我们将第三列添加到list中的每个list中。

lapply(lst, function(x) { x$three = letters[11:14]; x })
#[[1]]
#  one two three
#1   A   1     k
#2   B   2     l
#3   C   3     m
#4   D   4     n
#
#[[2]]
#  one two three
#1   A   1     k
#2   B   2     l
#3   C   3     m
#4   D   4     n
#
#[[3]]
#  one two three
#1   A   1     k
#2   B   2     l
#3   C   3     m
#4   D   4     n
#
#[[4]]
#  one two three
#1   A   1     k
#2   B   2     l
#3   C   3     m
#4   D   4     n

注意，我们需要返回x，以获得添加的列的data.frame。