Как читать несколько файлов в папке с помощью вставки в R - PullRequest
0 голосов
/ 27 марта 2019

Функция сортировки работает.Он выводит список лет вместо чтения в 104 файлах на моем компьютере.Я также попытался установить knitr и код, указанный ниже в комментариях.Я открыт для идей о внутренней части функции (year = "all"), но моя домашняя работа требует, чтобы мы использовали функцию вставки.

    setwd("C:/Users/Sarah/Downloads/names-full-datasets/names-full-datasets")
    library(purrr)
    baby.names <- function(year="all"){
    if(year!="all"){cnames <- read.table(paste("yob",year,".txt", sep = 
     ""),header = FALSE, 
    sep = ",", col.names = c("Name","Sex","Count"))
    cnames$year <- year
      }
     else
    {
    cnames <- lapply(1910:2013, baby.names)
    ldply(cnames)
    }    
    }
   yall <- baby.names()`
```

1 Ответ

0 голосов
/ 27 марта 2019

Мне удалось найти ответ, мне просто нужно было добавить ответ.Спасибо за помощь!

library(plyr)
setwd("C:/Users/Sarah/Downloads/names-full-datasets/names-full-datasets")
baby.names <- function(year="all"){
  if(year!="all"){cnames <- read.table(paste("yob", year, ".txt", sep = ""), header = FALSE, sep = ",", col.names = c("Name","Sex","Count"))
cnames$year <- year 
return(cnames) 
  }
  else
  {
    cnames1 <- lapply(1910:2013, baby.names)
    ldply(cnames1)
  }

}
...