rm(list=ls()) options(stringsAsFactors=F) setwd('files/') el=lapply(list.files(pattern='*.gz'),function(x){ read.table(x,header=T,row.names=1)[,9,drop=FALSE] }) lapply(el, head) exprSet=do.call(cbind,el) colnames(exprSet)=paste0(c('control','KPC'),c(1:5,1:5)) # The reads per 1k bases of exon model per million mapped reads. # (http://www./nmeth/journal/v5/n7/abs/nmeth.1226.html)
差异分析后的热图
功能富集及注释
chemoattractant相关基因集的表达量分布
GSEA分析挑选感兴趣通路
Enrichment of IL-6–JAK–STAT3 signalling genes in the liver (n = 5 for control mice and NTB KPC mice).