在R中如何按列值循环提取数据并生成多个独立数据框？

假设你的原始数据集名为df（包含示例中的hgnc、broad_class等列），同时你已经有bin_gene_dict数据框用于合并操作。以下是实现批量处理的代码：

# 1. 获取broad_class的所有唯一类别
unique_classes <- unique(df$broad_class)

# 2. 循环遍历每个类别
for (class in unique_classes) {
  # 提取当前类别的数据行
  current_data <- df[df$broad_class == class, ]
  
  # 执行合并操作（和你处理exc类的逻辑一致）
  merged_data <- merge(current_data, bin_gene_dict, by.x = "hgnc", by.y = "hgnc_symbol")
  # 去重，保留每个hgnc的唯一行
  final_data <- merged_data[!duplicated(merged_data$hgnc), ]
  
  # 提取需要输出的列
  gene_cell_out <- final_data[c('ensembl_gene_id')]
  
  # 生成带类别名称的输出路径
  output_path <- paste0(base_dir, '/GCTA_', class, '_ahba_ensembl.txt')
  
  # 写入文本文件
  write_delim(gene_cell_out, output_path, delim='\t', col_names = F)
}

关键说明： #

• 先通过unique(df$broad_class)自动获取所有需要处理的类别，无需手动逐个指定exc、int、pur
• 循环内复用了你原本处理单个类别的逻辑，仅将固定的exc替换为循环变量class
• 输出文件名会自动带上对应类别名称，例如GCTA_int_ahba_ensembl.txt、GCTA_pur_ahba_ensembl.txt，省去手动修改文件名的麻烦

如果需要只处理指定类别，可直接定义目标类别列表：

# 仅处理指定的几个类别
unique_classes <- c("exc", "int", "pur")

内容的提问来源于stack exchange，提问作者Michiko C