R- rbind中的错误(deparse.Level，..):无效列表参数:所有变量都应具有相同的长度

Question

我正在尝试使用" rbind"来获取结果，但我正在显示错误" rbind中的错误（deparse.Level，...）：无效列表参数：所有变量都应具有相同的长度"

"

pm2 <- function(directory, id=1:322)
{
  files  <- list.files(path = directory, full.names = TRUE)
  df <- data.frame()
  for (i in 1:322)
  {
        fil <- read.csv(files[i])
        df <- rbind(df, fil)
  }
  df2 <- data.frame(matrix(nrow = length(id), ncol = 2))
  colnames(df2) <- c("id", "nobs")
  for(i in id){
        rbind(df2, c(df[[id[i]]],count((df[[id[i]]])),na.rm = TRUE)) 
  }
  df2
}
pm2("specdata", 1:10)

Answer 1

听起来您的单个数据帧没有相同的宽度（列数）

一个简单的修复方法是使用plyr::rbind.fill，它将用NA填充丢失的列（尽管您可能想重新考虑为什么要填充不同宽度的数据帧）。请参阅下面的可重现示例

test <- mtcars[1:2,]
ncol(test)
# [1] 11
modified <- test[,1:9]
ncol(modified)
# [1] 9
rbind(test, modified)
# Error in rbind(deparse.level, ...) : 
  # numbers of columns of arguments do not match
library(plyr)
rbind.fill(test, modified)
  # mpg cyl disp  hp drat    wt  qsec vs am gear carb
# 1  21   6  160 110  3.9 2.620 16.46  0  1    4    4
# 2  21   6  160 110  3.9 2.875 17.02  0  1    4    4
# 3  21   6  160 110  3.9 2.620 16.46  0  1   NA   NA
# 4  21   6  160 110  3.9 2.875 17.02  0  1   NA   NA