R语言编写函数匹配同规则数据框合并列并导出CSV的实现方法

1. 前置准备 #

首先加载处理所需依赖包：

# 首次使用先安装包，已安装可注释该行
# install.packages("qpcR")
library(qpcR)

2. 完整实现代码 #

默认逻辑为相同后缀的所有dataframe的第2、3列合并为一个文件，避免同后缀名称覆盖：

# 步骤1：筛选全局环境中符合命名规则的dataframe
# 正则匹配规则：精准匹配以IV/MO/ME/DV开头、后接小数点的对象名
target_df_names <- ls(pattern = "^(IV|MO|ME|DV)\\.", envir = .GlobalEnv)
# 过滤非dataframe类型的对象，避免后续处理报错
target_df_names <- Filter(function(n) is.data.frame(get(n, envir = .GlobalEnv)), target_df_names)

# 步骤2：按后缀分组，后缀为对象名第一个小数点之后的所有字符
df_groups <- split(target_df_names, sapply(target_df_names, function(n) sub("^.*?\\.", "", n)))

# 步骤3：批量处理每组数据并导出
for (suffix in names(df_groups)) {
  # 提取当前组所有dataframe的第2、3列
  cols_list <- lapply(df_groups[[suffix]], function(n) {
    df <- get(n, envir = .GlobalEnv)
    df[, c(2,3), drop = FALSE]
  })
  # 用cbind.na合并不同长度的列，自动补全NA
  merged_df <- do.call(cbind.na, cols_list)
  # 可选：将合并后的数据框存入全局环境，不需要可注释该行
  assign(suffix, merged_df, envir = .GlobalEnv)
  # 导出为csv文件，默认保存到当前工作目录
  write.csv(merged_df, file = paste0(suffix, ".csv"), row.names = FALSE, na = "")
}

如果需要每个dataframe单独处理导出，可替换步骤3的循环代码为：

for (df_name in target_df_names) {
  df <- get(df_name, envir = .GlobalEnv)
  suffix <- sub("^.*?\\.", "", df_name)
  # 合并当前dataframe的第2、3列
  merged_col <- cbind.na(df[,2], df[,3])
  # 加前缀避免重名覆盖，可根据需求自定义命名规则
  res_name <- paste0("res_", suffix, "_", df_name)
  assign(res_name, merged_col, envir = .GlobalEnv)
  write.csv(merged_col, file = paste0(res_name, ".csv"), row.names = FALSE, na = "")
}

3. 说明 #

• 后缀提取逻辑适配你提到的两种命名模式，不管第一个小数点后有多少个小数点，都可以完整提取（比如IV.a.a提取结果为a.a）
• 导出时na = ""参数可将csv中的NA值替换为空值，不需要可删除该参数
• 运行前可通过getwd()查看当前工作目录，导出的csv文件会保存在该路径下

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