如何将列表中各dataframe的第二列重命名为对应dataframe名称？

问题分析 #

你之前的代码出现数据丢失的原因有两个：

1. lapply的函数体只执行了列名赋值操作，没有返回修改后的DataFrame，所以最终得到的列表只是赋值操作返回的列名字符串，而非完整数据。
2. sprintf("genome_%d", 1:12)会一次性生成12个字符串，但循环中每个索引i只对应一个DataFrame，应该用i来生成对应名称，而非整个向量。

正确解决方案 #

方法一：利用列表元素的名称处理（更直观）

因为你已经给前12个DataFrame命名为genome_1到genome_12，直接用这些名称来修改列名：

# 遍历前12个已命名的列表元素
final_mixed_list2 <- lapply(names(Final_mixed_list)[1:12], function(df_name) {
  df <- Final_mixed_list[[df_name]]
  colnames(df)[2] <- df_name  # 将第二列改为当前DataFrame的名称
  df  # 必须返回修改后的完整DataFrame
})
# 保持列表元素的名称与原列表一致
names(final_mixed_list2) <- names(Final_mixed_list)[1:12]

方法二：通过索引遍历修正原代码

如果你习惯用索引遍历，修正后的代码如下：

# 仅遍历前12个元素的索引
final_mixed_list2 <- lapply(1:12, function(i) {
  df <- Final_mixed_list[[i]]
  colnames(df)[2] <- sprintf("genome_%d", i)  # 为当前索引生成对应名称
  df  # 返回修改后的DataFrame
})
# 给新列表的元素命名
names(final_mixed_list2) <- sprintf("genome_%d", 1:12)

方法三：保留原列表其他元素（推荐）

如果你的列表除了前12个元素还有其他内容，不想丢失它们，可以直接在原列表副本上修改：

# 复制原列表，避免修改原数据
final_mixed_list2 <- Final_mixed_list
# 循环修改前12个元素的列名
for (i in 1:12) {
  target_name <- sprintf("genome_%d", i)
  colnames(final_mixed_list2[[target_name]])[2] <- target_name
}

内容的提问来源于stack exchange，提问作者Carlos Alberto Lara Rojas