-1

我有一个包含 40 个文件的文件夹（尽管我想编写代码以便它可以处理任意数量的文件，因为这对我来说一直都会出现）。我要做的就是获取一个新文件，将所有这些文件作为列编译在一起。每个文件包含 5 列，每列有 902 行。

这是我写的：

Specs2 <- function() 
{
  allspecs2 <- NULL
  fnames2 <- scan(file.choose(), what = "character", quiet = TRUE)
  print(fnames2)
  for (i in fnames2) 

  {
    dat2 <- read.table(paste("E:\\Post-doc Data\\Colour-   Temperature\\Compiled Sets Rows\\",i, sep=""))
    value <- data.frame(dat2)
    allspecs2 = cbind(allspecs2, value)
  }

  allspecs2 <- data.frame(allspecs2)

  write.table(allspecs2, "E:\\Post-doc Data\\Colour-   Temperature\\Colour-Temperature_Columns.csv", row.names = FALSE, quote = FALSE)
}

Specs2()

当提示选择文件时，我选择一个文件，其中包含我要编译的文件夹中所有文件的列表。当我运行此代码时，我收到以下错误代码： 

"Error in data.frame(..., check.names = FALSE) : arguments imply differing number of rows: 0, 902"

但是我正在编译的所有文件都具有相同的行数和列数。有谁知道我为什么会收到此错误或如何解决？还是以不同的方式对其进行编码以实现相同的目的？

谢谢！

编辑：所以在阅读了 MrFlicks 的回答后，我明白了他的代码为什么有效，但我之前成功地使用过相同类型的代码：

Specs1 <- function() 
{
  allspecs1 <- NULL
  dirnames <- scan(file.choose(), what = "character", quiet = TRUE)
  print(dirnames)
  for (j in dirnames) 

{ 
 fnames1 <- list.files(path = paste("E:\\Post-doc Data\\Colour-Temperature\\Specs\\",j, sep = ""), pattern = NULL, all.files = FALSE, 
                      full.names = FALSE, recursive = FALSE,
                      ignore.case = TRUE, include.dirs = FALSE, no.. = FALSE)
print(fnames1)
for (i in fnames1) 

    {
      dat1 <- read.table(paste("E:\\Post-doc Data\\Colour-Temperature\\Specs\\",j,"\\",i, sep=""), skip = 17)
      smoothed <- ksmooth(dat1[,1], dat1[,2], kernel = "box", bandwidth = 10, x.points = seq(300, 2100, 2))
      allspecs1 = cbind(allspecs1, smoothed$y)          
    }

    allspecs1 = cbind(smoothed$x, allspecs1)
    allspecs1 <- data.frame(allspecs1)
    write.table(allspecs1, paste("E:\\Post-doc Data\\Colour-Temperature\\Compiled Sets Rows\\",j, ".txt"), row.names = FALSE,     col.names = FALSE, quote = FALSE)
    rm(allspecs1)
    allspecs1 = NULL  
  }
}

Specs1()

我只是想了解为什么它有时有效，但有时无效？

谢谢！

4

1 回答 1

0

您收到该错误的原因与返回该错误的原因相同

cbind(NULL, data.frame(a=1))
# Error in data.frame(..., check.names = FALSE) : 
#   arguments imply differing number of rows: 0, 1

您从定义开始allspecs2 <- NULL，当您将cbind第一个 data.frame 转到该空值时，您会触发错误。

最好allspecs2在绑定之前检查是否有任何行/列。怎么样

Specs2 <- function() 
{
  allspecs2 <- NULL
  fnames2 <- scan(file.choose(), what = "character", quiet = TRUE)
  print(fnames2)
  for (i in fnames2) {
    value <- read.table(paste("E:\\...\\",i, sep=""))
    if ( is.null(allspecs2) ) {
        allspecs2 <- value
    } else {
        allspecs2 <- cbind(allspecs2, value)
    }
  }
  write.table(allspecs2, "E:\\...\\file.csv", row.names = FALSE, quote = FALSE)
}

Specs2()
于 2014-06-06T04:33:17.627 回答