R语言中用dplyr::bind_rows合并data_*数据框失败的修复方法

ls(pattern = "data*")返回的是字符向量（仅包含数据框的名称字符串），而dplyr::bind_rows()要求传入实际的数据框对象，直接传字符串会导致类型不匹配，因此合并失败。

方法1：用mget()转换为数据框列表后合并 #

这是最直接的解决方案，mget()可以根据字符向量中的名称，从当前环境中提取对应的对象并返回列表：

library(dplyr)
# 精准匹配"data_+数字"格式的数据框名称（避免误匹配其他类似命名的对象）
data_names <- ls(pattern = "^data_\\d+$")
# 获取对应的数据框对象列表
data_list <- mget(data_names)
# 合并所有数据框
combined_data <- bind_rows(data_list)

方法2：结合purrr::map_dfr()实现合并 #

如果习惯用tidyverse工具链，可以用map_dfr()遍历名称字符串，获取对象并自动合并为数据框：

library(dplyr)
library(purrr)
data_names <- ls(pattern = "^data_\\d+$")
combined_data <- map_dfr(data_names, get)

方法3：Base R 原生方法（列一致时适用） #

若所有数据框的列名、列类型完全一致，也可以用Base R的do.call()配合rbind()：

data_names <- ls(pattern = "^data_\\d+$")
combined_data <- do.call(rbind, mget(data_names))

• 建议使用^data_\\d+$这种精确正则表达式，避免匹配到非目标对象（比如data_temp这类不符合data_数字格式的对象）。
• 如果环境中存在同名但不是数据框的对象，可先筛选出数据框类型的对象再合并：

data_names <- ls(pattern = "^data_\\d+$")
# 只保留是数据框的对象名称
data_names <- data_names[sapply(data_names, function(x) is.data.frame(get(x)))]
combined_data <- bind_rows(mget(data_names))

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