R语言如何提取列表中dataframe名称作为列名前缀批量合并宽表

核心问题说明 #

你当前的问题根源是存储dataframe的wells列表未携带每个元素对应的原变量名，只需先给列表加命名，再迭代时同时取名称和数据即可实现需求。

具体步骤 #

第一步：给列表添加命名 #

有两种常用方式，可根据你的实际场景选择：

• 若你的所有dataframe命名有统一规律（比如示例中都是A+数字的格式），可批量获取不用手动输入：

# 匹配所有符合A+数字规则的变量名，自动生成带命名的列表
wells <- mget(ls(pattern = "^A\\d+$"))

• 若需要手动指定命名，直接在定义列表时赋值即可：

wells <- list(A1 = A1, A2 = A2)

第二步：迭代处理并合并 #

使用purrr包的imap函数可以同时迭代列表的元素值和对应名称，完美适配你的需求，完整代码如下：

library(tidyverse)

df_list <- imap(wells, function(df, df_name) {
  df %>% 
    pivot_wider(
      names_from = Cell_ID, 
      values_from = x,
      names_prefix = paste0(df_name, "_")
    )
})

# 按Pulse_ID合并所有表
final <- df_list %>% reduce(full_join, by = "Pulse_ID")

基础R替代方案（无需加载purrr） #

如果你不想引入额外包，也可以用基础R的Map实现：

df_list <- Map(function(df, df_name) {
  tidyr::pivot_wider(
    df,
    names_from = Cell_ID,
    values_from = x,
    names_prefix = paste0(df_name, "_")
  )
}, wells, names(wells))

final <- Reduce(function(x,y) merge(x,y,by="Pulse_ID",all=TRUE), df_list)

输出效果验证 #

运行上述代码后，你将得到符合要求的宽表，列名格式为数据表名_Cell_ID取值，和你预期的示例完全一致。

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