转录组分析-上下调基因条形图

setwd("Desktop/transcriptom")

library(ggplot2)
kob <- read.csv("count - up and down regulated genes.csv",header = T)
kobDEgenes_count >= 0
kobcomparison,levels = c("fir_ctr","fir_R_fir","sec_fir_R","sec_R_sec","four_sec_R",
"sec_fir","four_sec","four_fir",
"fir_R_ctr","sec_R_ctr","sec_R_fir_R"))
p <- ggplot(kob, aes(x = comparison, y = DEgenes_count, fill = pos))
p <- p + geom_bar(stat = "identity",
position = "identity",
colour = "ivory",
size = 0.1)
p <- p + scale_fill_manual(values = c("darkseagreen3", "gold3"),guide = FALSE)
p <- p + geom_text(aes(label= DEgenes_count),
vjust=0.5,
color="grey32",
size=4.5)
p <- p + theme( axis.text.x = element_text(size = 10.5), axis.text.y = element_text(size = 15),axis.title.x =element_text(size=18), axis.title.y=element_text(size=18),legend.text= element_text(size=18))
p <- p + labs(x="comparison",y="DEGenes")
p

Rplot01.png