OrigCode/CHI_HAICalcs/RHaiFuncs_sdy404/plot_size_bubbles.r

In ehfhcrc/ImmSig2: Streamlined package to demonstrate HIPC ImmuneSigatures work using ImmuneSpace Data

plot_size_bubbles <- function(x,y, col=NA, f=NA) {
  dd = data.frame(x,y, col, f) %>%
    group_by(x,y,col,f) %>%
    summarise(n=n()) %>%
    ungroup()
  
  if (all(is.na(dd$col))) {
    p = ggplot(dd, aes(x,y))
  } else {
    p = ggplot(dd, aes(x,y, colour=col))
  }
  
  if (!all(is.na(dd$f))) {
    p = p + facet_wrap(~f, nrow=1)
  }
  p + geom_point(aes(size=n))
}