批量为139个动物DataFrame添加ID列并合并的高效实现需求

我来帮你搞定这个批量处理的问题，不用再手动给139个DataFrame逐个加ID列啦！下面是高效的R代码解决方案，完全适配你的需求：

步骤1：准备目标DataFrame名称列表 #

你已经列出了所有DataFrame的名称，我们直接把它们放进一个字符向量里：

df_names <- c("102211.10","10946.05","111868.11","111868.16","111869.11","111869.17","111870.17","111871.12","112694.12","112696.17","112702.12","112712.12","112714.12","112717.12","112728.17","120937.17","120938.16","120942.17","120943.17","120947.12","120947.17","121189.12","121191.17","121192.12","121193.12","121195.12","121196.12","121203.17","121206.17","123226.17","171994.17","171997.17","172000.17","172001.17","172002.17","172003.17","172004.17","194591.19","194593.19","194601.19","194603.19","20162.03","20687.03","21791.03","21792.03","21800.03","21809.03","21810.03","24640.03","24641.05","24642.03","26712.05","27258.05","27259.03","27259.05","27259.06","27261.03","27261.05","27261.07","33000.05","33000.06","33001.05","33001.06","37229.05","37229.06","37230.06","37231.05","37231.07","37234.05","37234.06","37236.06","37282.06","37286.07","37288.06","37288.07","42521.06","42521.07","42525.07","50682.06","50682.07","50686.07","50687.07","60004.07","60007.07","7617.05","7618.05","81122.09","81123.09","81124.09","81125.09","81126.09","84480.12","84484.17","84485.17","84497.10","87624.10","87631.10","87632.12","87635.17","87759.08","87760.08","87761.08","87762.08","87763.08","87764.08","87765.08","87766.08","87767.08","87768.08","87768.11","87769.08","87769.11","87770.08","87771.09","87773.08","87773.09","87773.10","87773.11","87774.08","87774.09","87774.11","87775.08","87775.12","87776.08","87776.11","87776.17","87777.08","87777.10","87777.17","87778.08","87778.10","87780.17","87781.10","87783.09","87783.11","88719.09","88720.09","88724.10","88726.10","88727.09","96380.10")

步骤2：批量添加ID列并收集DataFrame #

用lapply遍历每个名称，给对应的DataFrame添加ID列（值就是DataFrame的名称），并把处理后的结果收集到一个列表中：

# 批量处理每个DataFrame
df_list <- lapply(df_names, function(name) {
  # 根据名称获取环境中的DataFrame
  current_df <- get(name)
  # 添加ID列，这里转成数值类型，如果你需要字符串格式就去掉as.numeric()
  current_df$ID <- as.numeric(name)
  # 返回处理好的DataFrame
  current_df
})

步骤3：合并所有DataFrame #

把列表里的所有DataFrame合并成一个大的DataFrame，有两种常用方法：

基础R方法 #

combined_df <- do.call(rbind, df_list)

dplyr方法（更简洁，需要先安装dplyr） #

library(dplyr)
combined_df <- bind_rows(df_list)

可选验证步骤 #

• 检查合并后的DataFrame中每个ID对应的行数是否正确：

table(combined_df$ID)

• 确保所有原DataFrame的列结构一致（避免合并出错）：

# 提取第一个DataFrame的列名作为基准
base_cols <- colnames(get(df_names[1]))
# 检查所有DataFrame的列名是否和基准一致
all_consistent <- all(sapply(df_names, function(x) identical(colnames(get(x)), base_cols)))
print(all_consistent) # 返回TRUE就说明列结构一致

这样你就得到了一个带动物ID标识的合并后DataFrame，完全不用手动逐个操作啦！

内容的提问来源于stack exchange，提问作者Anne Elise