首先，我有一个文件夹，叫specdata，specdata里面有许多文件，如图，现在我想对这些文件里的一些数据进行同时处理，于是我编了这样一个程序：pollutantmean <- function(directory,pollutant,id=1：332){ x <- dir(directory) z <- c(NA) for(i in id){ y <- read.csv(x[i]) z <- y$”pollutant”+z } mean(z,na.rm=TRUE)} pollutantmean(“specdata”,”solfate […]