错误：找不到对象'my_dat'

Question

运行时它给了我：错误my_dat not found。

pollutantmean <- function(directory, pollutant, id=1:332){
            file_list <- list.files(directory, full.names=TRUE)
            my_dat <- data.frame()
            for (i in id){
                    my_dat <- rbind(my_dat, read.csv(files_list[i]))
            }

    }

Answer 1

请尝试使用以下代码：

id=1:332
file_list <- list.files(directory, full.names=TRUE)
my_dat_list <- lapply(file_list[id], read.csv)
my_dat <- do.call(rbind, my_dat_list)

要加速代码，请使用

require(data.table)
id=1:332
file_list <- list.files(directory, full.names=TRUE)
my_dat_list <- lapply(file_list[id], fread)
my_dat <- rbindlist(my_dat_list)
setDF(my_dat) # to make it a data.frame instead of a data.table