如何使用向量重命名列表中所有数据框的第一列？

你的问题出在lapply只遍历了数据框列表，但没对应到cols向量的每个元素——每次赋值都用了整个cols向量，R的向量回收规则会自动取第一个元素，所以所有数据框的第一列都被改成了cols[1]。

下面是两种可行的修正方案：

方案一：用索引遍历列表 #

给lapply传入列表的索引（而不是列表元素本身），这样就能同时拿到对应位置的cols元素：

cols <- c("list", "of", "names")
# 建议不要用`list`当变量名，换成df_list避免和内置函数冲突
df_list <- lapply(seq_along(df_list), function(i) {
  # 取第i个数据框，修改第一列名为cols[i]
  colnames(df_list[[i]])[1] <- cols[i]
  df_list[[i]]
})

方案二：用Map同时配对数据框和名字 #

Map可以自动将两个向量/列表的元素按位置配对，写法更简洁：

cols <- c("list", "of", "names")
df_list <- Map(function(df, new_name) {
  colnames(df)[1] <- new_name
  df
}, df_list, cols)

注意：如果你的数据框列表长度和cols向量长度不一致，R会触发回收规则，可能出现非预期结果，确保两者长度相同即可。

内容的提问来源于stack exchange，提问作者Gabrielle S