如何在R语言中为列表中的多个dataframe添加新行

安全阿岳

2026-7-30

解决方案

你可以用Map()函数（或者mapply()）来同时遍历你的dataframe列表和对应的年份向量，这样就能给每个dataframe添加对应年份的行。以下是具体实现：

完整代码

# 你的原始数据
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")

# 定义对应年份向量，顺序和df.list一致
years <- 2000:2002

# 使用Map处理每个df和对应年份
new_df_list <- Map(function(df, year) {
  # 创建年份行：列数和原df一致，所有值都是当前年份
  year_row <- data.frame(lapply(df, function(col) year))
  # 合并原df和年份行
  rbind(df, year_row)
}, df.list, years)

# 查看结果
new_df_list$df1

代码解释

years <- 2000:2002：生成和dataframe列表长度匹配的年份序列，第一个df对应2000，第二个2001，以此类推。
Map()：会把df.list里的每个dataframe和years里的每个年份一一配对，传入自定义函数处理。
自定义函数里，lapply(df, function(col) year)：针对原df的每一列生成一个值为年份的向量，再转成dataframe，保证列名和原df完全一致，避免rbind出错。
rbind(df, year_row)：把原dataframe和年份行合并，得到目标结果。

替代方案（用mapply）

如果习惯用mapply，可以写成：

new_df_list <- mapply(function(df, year) {
  year_row <- data.frame(lapply(df, function(col) year))
  rbind(df, year_row)
}, df.list, years, SIMPLIFY = FALSE)

注意要加SIMPLIFY = FALSE，否则mapply会自动简化结果为矩阵，而不是保留列表格式。