rbind(deparse.level, ...)中的错误：无效的列表参数：所有变量的长度应该相同

Question

我试图使用"rbind"来获取结果，但是出现了错误："Error in rbind(deparse.level, ...) : invalid list argument: all variables should have the same length"。

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)

- Sanchit Pruthi

---

你能提供一个可重现的例子吗？ - Samuel

数据文件 - Sanchit Pruthi

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

- CPak