我如何不讓 R 覆蓋其他值

Question

這是我的功能

complete <- function(directory, id = 1:332) {
  files_list <- list.files(directory, full.names = TRUE)
  nobs <- numeric()
  for (i in id) {
    nob <- sum(complete.cases(read.csv(files_list[i])))

  }
  nobs <- c(nobs, nob)
  dat <- return(data.frame(id, nobs))
} 

complete(specdata, 1)
complete(specdata, c(2, 4, 8, 10, 12))

這返回

> complete(specdata, 1)
  id nobs
1  1  117
> complete(specdata, c(2, 4, 8, 10, 12))
  id nobs
1  2   96
2  4   96
3  8   96
4 10   96
5 12   96

雖然我得到了正確的單個值，但不同的 id 應該有不同的結束值，目前，所有值都被最終值覆蓋。

如何讓它不這樣做？

Answer 1

謝謝大家，我最終找到了另一種方法。

complete <- function(directory, id = 1:332){
  files_list <- list.files(directory, full.names = T) # creates a list of files.
  dat <- data.frame() #creates an empty data frame
  nobs <- numeric()
  for (i in id) {
    dat <- read.csv(files_list[i])    
    nobs <- c(nobs, sum(complete.cases(dat)))
  }  
  return(data.frame(id, nobs))
}

Answer 2

@StupidWolf 的建議應該可以解決您的問題，但這是另一種方法：

complete <- function(directory, id = 1:332) {
   files_list <- list.files(directory, full.names = TRUE)[id]
   data.frame(id, nobs = sapply(files_list, function(x) nrow(na.omit(read.csv(x)))))
}