#先将默认目录设置到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)#计算结果
容易遇到的问题：
1.在导入文件时，可能会出现第一列列名为“X.U.FEFF.xx”。这可能是文件类型或编码方式导致，本人解决方法是将csv（utf-8）文件另存为csv文件。“X.U.FEFF.xx”字样消除。
2.在数据合并时参数type=“full”容易导致数据合并不成功。
参考网站： http://blog.sina.com.cn/s/blog_46d621c00101l66x.html
