在 R 中自动读取 CSV 文件

Question

我正在使用 NOAA 的风暴事件数据库 - 1951 年到 2015 年。链接中的代码和 CSV。 https://www.dropbox.com/sh/lb69l5isa25guc2/AAC4-gYr3N6TVDxEGzBB8fJVa?dl=0

代码已经完成，但我不得不重复以下两行 65 次，手动只更改了几件事：

x52 <- read.csv("StormEvents_details-ftp_v1.0_d1952_c20160223.csv")
n52 <- length(select(x52, EVENT_TYPE) %>% filter(EVENT_TYPE=="Tornado") %>% unlist)

有没有办法告诉 R 将您读取的每个新 CSV 分配给一个新向量（对于 1953、54 等），并对它们执行相同的操作？我找到了这个帖子，但我不认为它是完全相同的问题：Working with Large Number of csv files in R

谢谢

Answer 1

我假设您拥有所有文件并将它们放在一个目录中。你可以做类似的事情：

datFiles <- c(list.files(path = "c:/Users/Philip/Downloads/Tornadoes/",
    pattern = "StormEvents_details.*\\.csv$",
    all.files = FALSE, full.names = TRUE, recursive = FALSE, ignore.case = TRUE,
    include.dirs = FALSE, no.. = FALSE))

for (i in 1:length(datFiles)) {
    x[i] <- read.csv(datFiles[i])
    n[i] <- length(select(x[i], EVENT_TYPE) %>% filter(EVENT_TYPE=="Tornado") %>% unlist)
    <your code here>
}