函数sort scale apply sd

用sort取最大值；取标准差最大的；用scale 进行标准化；
使用函数，可以让功能复用；
通过热图可以发现离群数据，然后去除；
知识点总结：names(tail((sort(apply(dat, 1, sd))),1000)