bubble plot example to visualize GO or pathway enrichment data

enrichment_bubble.R

library(ggplot2)
library(stringr)

theme_set(
  theme_bw() + 
    theme(legend.position = "right")
)

ggplot(all_go, aes(x = sample_id, y = reorder(GO.label, Enrichment))) + 
  geom_point(aes(size = Enrichment, fill = P.value), alpha = 0.75, shape = 21) + 
  facet_wrap(~ regulation) + 
  theme(axis.text.y = element_text(size=5)) + 
  theme(axis.text.x = element_text(face="bold")) + 
  theme(axis.title = element_blank()) + 
  theme(legend.position = "right") + 
  scale_fill_gradient(low="bisque", high = "darkred") + 
  scale_size(range = c(1, 10))