R中的for循环以意想不到的方式表现

Question

我正在编写这个函数，而我的循环以不同的方式运行。你能解释一下为什么会这样以及如何纠正吗？

    complete <- function(directory, id = 1:332)  {
    specd <- list.files("specdata", full.names = TRUE)
    temp<- vector(mode = "numeric", (length = length(id)))
    for (i in id)   {
    temp[i] <- nrow(na.omit(read.csv(specd[i])))
    }
    return(data.frame(id = id, nobs = temp))
    }

代码：

complete("specdata", 1)OBSERVATION – id = 1; yields 1 answer
  id nobs
1  1  117
complete("specdata", 3) OBSERVATION – id = 3; yields 3 answers
  id nobs
1  3    0
2  3   NA
3  3  243
complete("specdata", 30:25) OBSERVATION – id = 30; yields 30 answers
complete("specdata", c(2, 4, 8, 10, 12))

在 data.frame(id = id, nobs) 中显示带有调试错误的 Traceback Rerun = temp) ：参数暗示不同的行数：5、12

Answer 1

将代码函数中的这一行更改为：

temp<- vector()
for (i in 1:length(id))

Answer 2

试试这个：

complete <- function(directory, id = 1:332)  {
specd <- list.files("specdata", full.names = TRUE)
temp<- c()
for (i in id)   {
temp <- c(temp,nrow(na.omit(read.csv(specd[i]))))
}
return(data.frame(id = id, nobs = temp))
}

行长度不匹配的原因是temp[i] 将输出分配给 temp 中的第 i 个地标。所以当你尝试c(2, 4, 8, 10, 12)。您期望为temp 获得一个长度为 5 的向量。但是你得到一个长度为 12 的向量。因为temp[12] 是输出的一个元素。所以temp 被拉长到那个长度。示例：

x <- 1
x
[1] 1
x[5] <- 2
x
[1]  1 NA NA NA  2

当我为 x 的第五个元素赋值时，R 扩展了向量而不要求我执行任务。

complete("specdata", 3) 返回 3 个答案，因为 temp 最初只有一个值 0。你在一开始就预先分配了它。然后 for 循环按照您的指示将 243 分配给 temp[3]。所以 R 为第二个值填写了一个 NA 值，剩下三个。

  id nobs
1  3    0
2  3   NA
3  3  243