r - 如何使用 R 中的粘贴读取文件夹中的多个文件

Question

函数排序运行。它输出一个年份列表，而不是读取我计算机上的 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()`
```

标签： rfunctionif-statementpasteread.table

Answer 1

我能够找到我只需要添加回报的答案。感谢所有的帮助！

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)
  }

}