使用dplyr的bind_rows合并数据框时遇长度不匹配错误求助

嘿，我来帮你搞定这个bind_rows报错的问题！你遇到的这个Error in bind_rows_(x, .id) : Argument 111 must be length 1309, not 2618错误，本质上不是列名的问题（你已经确认共同列名称一致了），而是因为两个数据框中，第111个共同列的数据类型不兼容——比如一个是因子（factor）、另一个是字符（character），或者其中一列存在隐性的长度异常（比如某行有多个值导致长度不对），在旧版本的dplyr（你用的R 3.4.3对应的dplyr版本大概率是0.7.x左右，对类型兼容性的处理不如新版本）里就会触发这类报错。

下面是具体的排查和解决步骤：

第一步：定位问题列 #

先找到报错提示里的第111个共同列是什么，方便后续排查：

# 获取两个数据框的共同列
common_cols <- intersect(names(mydata), names(mydata2))
# 查看第111个共同列的名称
cat("出问题的列是：", common_cols[111], "\n")

第二步：检查列的类型和长度 #

确认这一列在两个数据框中的数据类型和长度是否一致：

target_col <- common_cols[111]

# 查看数据类型
cat("mydata中", target_col, "的类型：", class(mydata[[target_col]]), "\n")
cat("mydata2中", target_col, "的类型：", class(mydata2[[target_col]]), "\n")

# 查看长度
cat("mydata中", target_col, "的长度：", length(mydata[[target_col]]), "\n")
cat("mydata2中", target_col, "的长度：", length(mydata2[[target_col]]), "\n")

第三步：针对性解决问题 #

根据排查结果，选择对应的解决方案：

方案1：统一列的数据类型

如果发现类型不一致（比如一个是因子，一个是字符），把它们转换成同一类型，比如统一转成字符型：

# 将因子列转换为字符型
mydata[[target_col]] <- as.character(mydata[[target_col]])
mydata2[[target_col]] <- as.character(mydata2[[target_col]])

# 如果是数值型问题，统一转成数值型（注意处理NA）
mydata[[target_col]] <- as.numeric(as.character(mydata[[target_col]]))
mydata2[[target_col]] <- as.numeric(as.character(mydata2[[target_col]]))

转换完成后再重新运行合并：

mydata_combine <- bind_rows(mydata, mydata2)

方案2：换用plyr包的rbind.fill

旧版本dplyr的bind_rows对类型兼容性支持较差，你可以试试plyr包的rbind.fill函数，它专门用来合并列不同的data.frame，并且对类型差异的容忍度更高，会自动填充NA：

# 先安装并加载plyr包
install.packages("plyr")
library(plyr)

# 执行合并
mydata_combine <- rbind.fill(mydata, mydata2)

方案3：排查隐藏的列名问题

虽然你说列名一致，但还是可以检查下是否有空格、大小写差异这类隐性问题：

# 去掉所有列名的空格和统一大小写
names(mydata) <- tolower(trimws(names(mydata)))
names(mydata2) <- tolower(trimws(names(mydata2)))

# 重新合并
mydata_combine <- bind_rows(mydata, mydata2)

额外提示 #

因为你使用的R 3.4.3版本比较老旧，对应的dplyr版本也会受限。如果条件允许，升级到较新的R和dplyr版本，这类类型兼容问题会被自动处理，报错概率会低很多。

内容的提问来源于stack exchange，提问作者Ele Begé