自動讀取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等），並對所有這些執行相同的操作？ 我找到了這個帖子，但我不是完全相同的問題： 使用R中的大量csv文件

謝謝

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