“-”变为了“.”...","Normal","Tumor")
### 去掉低质量的探针行
dat=dat[apply(dat,1, function(x) sum(x>1) > 50),]
### 检查数据
table(...1.2 差异分析
## T1-T4亚型组与正常组表达矩阵分别差异分析
### 去掉低质量的探针行
gset=gset_cdRNA
gset=gset[apply(gset,1, function(x)...dat,group_list) #cbind横向追加,即将分组信息追加到最后一列
library("FactoMineR")#画主成分分析图需要加载这两个包
library("factoextra...(dat,1,sd)),1000))#apply按行('1'是按行取,'2'是按列取)取每一行的方差,从小到大排序,取最大的1000个
library(pheatmap)
#pheatmap(dat