在data中添加了示例文件,count.txt为生数据,group.csv为分组文件 data<-read.table(file = "count.txt",header = T) group<-read.csv(file = "group.csv",header = T) group2<-read.csv(file = "group.csv",header = T,row.names = 1)
DOWNSTREAManalysis(DATA = data,GROUP = group,SPECIES = "RAT",GENE_TYPE = "ENSEMBL")
aa<-IDchange( geneIDtoCHANGE = row.names(data), CHANGEfromTYPE = "ENSEMBL", CHANGEtoTYPE = "ENTREZID", SPECIES = "RAT", omitNA = TRUE, MERGEtoDATA = data, drop = TRUE )
bb<-differenceANALYSIS1(rawdata = data,group = group,omitNA = T)
GO<-GOenrich(aa$ENTREZID, SPECIES = "RAT")
plotVOCANOL(bb, LOG2FC = 0.05, PVALUE =0.05, TAQ = FALSE,#(可以提供感兴趣基因的列表) TITAL = "火山图")
plotHEATMAP1(bb, group2) #分组文件2(行名为样品名,第一列为分组))
f<- plotDOT1(GO) f<- plotDOT2(GO)
g<- plotBAR(KEGG)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.