r - 如何向 R 列表中的多个数据帧添加新行

Question

我有一个包含多个数据框的列表，我希望能够向每年的每个数据框添加一个新行

我希望能够同时编辑所有数据帧，因此我首先将数据帧合并到一个列表中

df1 <- data.frame (first_column  = c(0),
               second_column = c(1),
               third_column = c(2))
df2 <- data.frame (first_column  = c(3),
               second_column = c(4),
               third_column = c(5))
df3 <- data.frame (first_column  = c(6),
               second_column = c(7),
               third_column = c(8))
df.list<-list(df1,df2,df3)
names(df.list)<-c("df1","df2","df3")

接下来我想向每个数据帧添加一行代表年份，如下所示

<表类=“s-表”> <标题> 第一列 第二列 第三列 <正文> 0 1 2 2000 2000 2000

虽然我希望能够将不同的年份添加到不同的数据帧(2000年到df1、2001年到df2、2002年到df3等)。

我尝试使用 lapply 为每个数据帧创建一个新的行空白，但这对我不起作用。

newlist <- lapply(df.list, function(x) insertRows(x, 2, new = NA)

一旦将空白行添加到数据帧中，我也会迷失如何向不同数据帧的新行添加不同的年份。任何建议将不胜感激!

Answer 1

使用 map

 Map(rbind, df.list, seq_along(df.list)-1 + 2000)

-输出

$df1
  first_column second_column third_column
1            0             1            2
2         2000          2000         2000

$df2
  first_column second_column third_column
1            3             4            5
2         2001          2001         2001

$df3
  first_column second_column third_column
1            6             7            8
2         2002          2002         2002