R语言如何合并列表内数据框的数值型与字符型指定两列

现有存储多个data.frame的列表，需对列表内每个数据框完成如下操作：

• 保留Column A、Column B、Column C三列
• 将非数值型列Sample_ID、数值型列Sample_ID2拼接为新列Sample_ID+Sample_ID2，拼接结果为两列值直接连接（示例中"abc"和123拼接为"abc123"）
  原有自定义函数、tidyverse包的unite()函数运行未得到预期结果，问题复现代码如下：

df <- data.frame("Column A"=c(1), "Column B"=c(2), 
  "Column C"=c(3), "Sample_ID"=c("abc"), "Sample_ID2"=c(123))

my_function <- function(fn){
  new <- do.call(paste0, final_list1[c("Sample_ID", "Sample_ID2")]) 
  return(new)
}

final_list2 <- lapply(list(df), my_function)

原有代码存在两个核心问题：

1. 函数入参fn代表lapply逐次传入的单个数据框，但函数内部未调用入参，反而直接引用了不存在的对象final_list1，运行会直接触发对象不存在的报错
2. 函数仅返回拼接后的单列向量，未保留要求的三个原有列，也未将拼接结果作为新列整合回数据框结构

基础R实现 #

无需依赖第三方包，修正自定义函数即可适配列表批量处理：

my_function <- function(current_df) {
  # 拼接两列生成新列
  current_df[["Sample_ID+Sample_ID2"]] <- paste0(current_df$Sample_ID, current_df$Sample_ID2)
  # 保留目标列，移除原有的两个待拼接列
  current_df <- current_df[, c("Column A", "Column B", "Column C", "Sample_ID+Sample_ID2")]
  return(current_df)
}

# 将your_list替换为实际存储数据框的列表对象即可运行
final_list2 <- lapply(your_list, my_function)

示例数据运行后输出结果：

Column A Column B Column C Sample_ID+Sample_ID2
1        1        2        3               abc123

tidyverse实现 #

使用unite()函数时需明确指定新列名、待拼接列、拼接分隔符，同时设置参数移除原待拼接列：

library(tidyverse)

my_function <- function(current_df) {
  current_df %>%
    unite(col = "Sample_ID+Sample_ID2", c(Sample_ID, Sample_ID2), sep = "", remove = TRUE) %>%
    select(`Column A`, `Column B`, `Column C`, `Sample_ID+Sample_ID2`)
}

final_list2 <- lapply(your_list, my_function)

运行结果与基础R实现完全一致。

若列表内存在列名缺失、值为空的特殊数据框，可提前在函数内增加列存在性校验、缺失值替换逻辑，避免运行报错。

内容的提问来源于stack exchange，提问作者Sara Angela Gallarati