如何向列表中的每個數據集添加新列

Question

我看過一些類似的問題，但它們並沒有真正幫助。

我有一個包含4個數據框的列表，我想向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

您沒有提供示例數據，因此我正在生成4個data.frame的示例list 。

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

我們向list每個data.frame添加第三列。

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 。