Skip to content

Instantly share code, notes, and snippets.

@epijim

epijim/stacked_histogram.r

Created October 1, 2013 13:58
Show Gist options
  • Save epijim/6778848 to your computer and use it in GitHub Desktop.
Save epijim/6778848 to your computer and use it in GitHub Desktop.
Download ZIP
stacked histogram
Raw
stacked_histogram.r
plot using ggplot2
require(ggplot2)
#data
set.seed(1233)
data1 <- data.frame(pop =c(rep("A x B", 200), rep("A x C", 200), rep("B x C", 200) ) , var1 = c(rnorm(1000, 90,10), rnorm(1000, 50, 10), rnorm(1000, 20, 30)))
qplot( var1, data = data1, geom = "histogram" , group = pop, fill = pop, alpha=.3) + theme_bw( )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment