Имя «length» всегда отображается в выходных данных - программирование R

Question

Я новичок в языке программирования R. Как функция ниже, я возвращаю фрейм данных, но выходные данные всегда показывают имя "длины" вместо индексов. Может кто-нибудь посоветует, пожалуйста.

Индикаторы появляются, если их больше 2.

Мой ожидаемый результат: 1, 2, 3

complete <- function(directory, id = 1:322){  

#set working directory
  setwd(directory) 

  #list all csv files in the working dir and save to listScvFile variable
  listCsvFile <- list.files(pattern = ".csv$") 

  #create original DataSet
  originalData <- lapply(listCsvFile[id],read.csv)

  #create working Dataset based on the pollutan argument 
  #and save to a vector
  workingDataSetVector <- c(length = length(id))

  for (i in 1:length(id)) {
    workingDataSet <- originalData[[i]][,"sulfate"]
    badWorkingDataSet <- is.na(workingDataSet)
    goodWorkingDataSet <- workingDataSet[!badWorkingDataSet]
    workingDataSetVector[i] = length(goodWorkingDataSet)
  }

  return(data.frame(id = id, nobs = workingDataSetVector))
}

пример изображения

Answer 1

Попробуйте

 workingDataSetVector <- c()

Вместо

 workingDataSetVector <- c(length = length(id))