如何按列填充空data frame且无需提前知晓待添加列的行数

你遇到的报错是因为cbind函数要求参与列合并的所有对象行数必须一致，初始创建的空data.frame行数为0，第一次合并102行的读取结果时自然触发行数不匹配的错误。

解决方案1：动态初始化数据框 #

不需要提前创建空data.frame，第一次读取表格时直接给df赋值，后续迭代再做列合并，无需提前知晓行数：

df <- NULL
for (i in 1:(length(hojas)-1)) {
  dat <- read_excel("你的文件路径.xlsx", sheet = sheet_names[i])
  if (is.null(df)) {
    # 第一次读取直接赋值，自动匹配第一个表的行数
    df <- dat
  } else {
    df <- cbind(df, dat)
  }
}

解决方案2：列表存储后统一合并（更推荐） #

先把所有读取的表格存入列表，最后一次性完成列合并，避免循环中反复修改数据框的性能损耗，也不需要提前预设行数：

# 初始化空列表存储所有读取结果
dat_list <- list()
for (i in 1:(length(hojas)-1)) {
  dat_list[[i]] <- read_excel("你的文件路径.xlsx", sheet = sheet_names[i])
}
# 一次性合并所有列
df <- do.call(cbind, dat_list)

注意事项 #

• 所有参与合并的表格行数需要保持一致，否则即便解决了初始空框的问题，后续合并依然会触发行数不匹配报错
• 如果存在不同sheet行数不一致的情况，可以先补全短表到统一行数再合并：

# 计算所有表的最大行数
max_row <- max(sapply(dat_list, nrow))
# 短表用NA填充到最大行数
dat_list <- lapply(dat_list, function(x) {
  if(nrow(x) < max_row) {
    x[(nrow(x)+1):max_row, ] <- NA
  }
  return(x)
})
df <- do.call(cbind, dat_list)

• 合并后如果有重复列名，cbind会自动添加.1/.2类的后缀区分，可通过colnames(df)自定义修改列名

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