setwd('D:/Data/R')
进一步，如果我们已经设置好工作路径为：D/Data/R，假如我们在R文件夹下有一个文件夹，名叫weibo，我们当然可以这样设置：setwd('D:/Data/R/weibo')，但是除此之外，还可以直接写成：
setwd('weibo')
运行之后，我们同样可以看到，工作路径变成了
那么在以上的基础上，我们已经把工作路径变成了'D:/Data/R/weibo'，如何快速将工作路径变成原来的D/Data/R呢？
setwd('..')
运行之后我们可以看到当前的工作路径是什么
getwd()
运行之后，我们就可以看到当前的工作路径是什么了。
在R中可以直接通过输入
？参数名 来打开帮助文档。
也可以用args(name)来查看参数的功能和所需要的变量。
R中是区分大小写的，这一点一定要提高注意。
这句你是想把所有的数据按行往下粘吧，你之前把dat定义成数据框，如此粘的时候列名必须严格相等，不知道你数据什么样子，dat <- rbind(dat, read.csv(paste0(directory,"/",i)))
# 这句我也不太懂，complete.cases是自定义函数？
dat.clean <- dat[complete.cases(dat$pollutant)]
