如何自动化为列表中的多个数据框添加新列？

嗨，我来帮你搞定这个批量添加列的问题！手动一个个改29个数据框确实太麻烦了，咱们用R里的批量处理工具就能轻松解决~

方法一：基础R的lapply()（无需额外安装包） #

这是最直接的原生方法，用lapply()遍历列表里的每一个数据框，给它们统一添加seq列：

# 遍历列表中的每个数据框，添加seq列
c <- lapply(c, function(df) {
  # 给当前数据框添加seq列，值为1到数据框的行数
  df$seq <- 1:nrow(df)
  # 返回修改后的 data frame
  return(df)
})

执行完之后，你可以检查一下结果，比如print(c$P01)，就能看到每个数据框都已经有了seq列啦。

方法二：用tidyverse工具包（更简洁的语法） #

如果你平时习惯用tidyverse系列的包（比如dplyr、purrr），可以用更简洁的写法：

首先需要加载对应的包：

library(purrr)
library(dplyr)

然后用map()结合mutate()来批量处理：

# 给列表里的每个数据框添加seq列
c <- map(c, ~ mutate(.x, seq = row_number()))

这里的row_number()是dplyr里的函数，会自动生成当前数据框的行号，和1:nrow(df)效果一样，但写法更直观。

小提示 #

如果你不想覆盖原来的列表c，可以把结果赋值给一个新变量，比如updated_list <- lapply(c, ...)，这样原来的列表还能保留。

内容的提问来源于stack exchange，提问作者L Castro