R语言作业 合并文件

Question

有一个文件夹叫specdata，内涵332个csv file，每个文件包含4列：date，sulfate，nitrate，ID，有1462行。
要求332个文件中所有sulfate的平均值。
现需要将全部文件的第2列合并起来，再算平均值，求助！
我写的方程是newdata<-rbind(specdata,read.csv(allfiles[id[i]])
运行后提示找不到allfiles找不到specdata，换成sulfate也不行。求助大神！
请大神不吝赐教

Answer 1

code
#先将默认目录设置到specdata下
files.name=list.files(pattern="csv");#读入目录下所有csv文件
files.length=length(files.name);#文件数，按题意为332
newdata=numeric(0);#用于存放所有sulfate数据
for(i in 1:files.length){
tmp=read.csv(a[i],head=T,sep=",");#csv文件一个个的读取
newdata=rbind(newdata,tmp[,2]);}#每个文件的第2列，也就是sulfate数据，按行合并
m=mean(newdata)#计算结果

Answer 2

#先将默认目录设置到specdata下
files.name=list.files(pattern="csv");#读入目录下所有csv文件
files.length=length(files.name);#文件数，按题意为332
newdata=numeric(0);#用于存放所有sulfate数据
for(i in 1:files.length){
tmp=read.csv(a[i],head=T,sep=",");#csv文件一个个的读取
newdata=rbind(newdata,tmp[,2]);}#每个文件的第2列，也就是sulfate数据，按行合并
m=mean(newdata)#计算结果

Answer 3

code
#先将默认目录设置到specdata下
files.name=list.files(pattern="csv");#读入目录下所有csv文件
files.length=length(files.name);#文件数，按题意为332
newdata=numeric(0);#用于存放所有sulfate数据
for(i in 1:files.length){
tmp=read.csv(a[i],head=T,sep=",");#csv文件一个个的读取
newdata=rbind(newdata,tmp[,2]);}#每个文件的第2列，也就是sulfate数据，按行合并
m=mean(newdata)#计算结果