循环批量cbind多个dataframe求助：合并s.dfx命名的数据框

你的错误根源在于：你把s.df当成了一个包含所有子数据框的列表/数据框，但实际上s.df1、s.df2...是独立的全局环境对象，所以s.df[t2]会试图去访问一个名为s.df的对象的第t2列，而这个对象根本不存在，自然会报“undefined columns selected”的错误。

下面给你两种靠谱的解决方法：

方法一：用列表+do.call批量合并（推荐） #

这种方法更简洁高效，适合处理大量数据框：

1. 先把所有符合命名规则的s.dfx对象收集到一个列表里
2. 用do.call把列表里的所有数据框一次性按列合并

# 匹配所有以"s.df"开头、后面跟数字的对象
df_names <- ls(pattern = "^s\\.df\\d+$")
# 将这些对象转换为列表
df_list <- mget(df_names)
# 批量按列合并
t <- do.call(cbind.data.frame, df_list)

解释一下：

• ls(pattern = "^s\\.df\\d+$")用正则表达式筛选出所有符合命名规则的对象名，避免手动指定n的数值，更灵活
• mget()会根据对象名列表，把对应的实际数据框对象提取出来组成列表
• do.call()相当于把列表里的每个元素作为参数传给cbind.data.frame，效果和手动写cbind.data.frame(s.df1, s.df2, ...)完全一样

方法二：修改循环逻辑实现合并 #

如果你坚持想用循环，需要用get()函数根据字符串动态获取每个数据框对象，而不是错误地访问不存在的s.df：

# 初始化一个空数据框
t <- data.frame()

# 循环遍历每个数据框
for(i in 1:n) {
  # 动态生成对象名并获取对应的dataframe
  current_df <- get(paste0("s.df", i))
  # 按列合并到t中
  t <- cbind.data.frame(t, current_df)
}

注意事项 #

• 确保所有s.dfx数据框的行数完全一致，否则cbind会抛出错误（如果行数不同但想强制合并，可以考虑用cbind.fill函数，需要先加载plyr包）
• 如果你的n是动态变化的，方法一的正则匹配方式比依赖固定n值更可靠，能自动识别所有符合命名的对象

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