小编Mai*_*aik的帖子

我正在尝试使用以下数据集制作堆叠和分组的条形图:

dfplot  <- data.frame(organisms=c("M.musculus","D.melanogaster" ,"H.sapiens","O.sativa","S.pombe","C.familiaris",
           "G.gallus","P.falciparum","A.thaliana","C.elegans","D.rerio","B.taurus","S.cerevisiae","R.norvegicus","C.intestinalis","B.subtilis","E.coli"),                  
                      KEGGv2=c(20,7,21,126,106,62,26,80,5,5,13,306,8,35,32,104,107), 
                      KEGGv1=c(286,124,289,0,0,244,135,0,121,124,148,0,101,271,87,0,0),
                      Reactome=c(358,146,596,115,54,306,370,23,155,112,365,341,52,364,0,0,0))

# Melt the dataframe
melted <- melt(dfplot, "organisms")

# Reformat the data labels
melted$cat <- ''
melted[melted$variable == 'Reactome',]$cat <- "Reactome"
melted[melted$variable != 'Reactome',]$cat <- "KEGG"


ggplot(melted, aes(x=cat, y=value, fill=variable)) + 
  geom_bar(stat = 'identity', position = 'stack') +
  facet_grid(~ organisms)+ 
  scale_fill_manual(values=c("deepskyblue4", "lightblue1", "olivedrab2")) +
  labs(y = "Number of Pathways") +
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        legend.title=element_blank(),
        strip.text.x = element_blank(),
        strip.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.background = element_blank(),
        axis.line = …