第一步的意思是安装pheatmap包，第二步的意思是引用pheatmap库，第三步的意思是打开nprot.2009.97_for_heatmap.txt 文件中的数据并赋值到变量a，第四步，用pheatmap分析数据变量a。
楼主从这个地址上下载 一个 .D然后，把这个文件放到 C:\Windows\system32 中最后， 开始---运行 输入 注意不包括引号哦，还有其中有 两个 空格 regsvr+空格+/s+空格+XINPUT1_3.DLL
这句你是想把所有的数据按行往下粘吧，你之前把dat定义成数据框，如此粘的时候列名必须严格相等，不知道你数据什么样子，dat <- rbind(dat, read.csv(paste0(directory,"/",i)))
# 这句我也不太懂，complete.cases是自定义函数？
dat.clean <- dat[complete.cases(dat$pollutant)]
