8.目的基因与通路的相关性分析 #这里使用表达矩阵中的基因TNFSF15进行演示,看看TNFSF15的表达与那些通路存在相关性。KDM3A<-as.data.frame(dat["TNFSF15",])KDM3A<-t(TNFSF15)rownames(TNFSF15)<-"TNFSF15"cordat<-rbind(Result,TNFSF15)#将TNFSF15的表达数据与基因集的整合在一起##包装batch_cor函数...