How to create a "nested" histogram?

Question

The last image in this blog post .

I tried to find a "nested histogram" and a "hierarchical histogram", but that might not be the word for it.

Answer 1

Use ggplot and create separate layers:

 library(ggplot2) set.seed(1) stupid <- data.frame( group= LETTERS[1:5], men = sample(1:10, 5), women = sample(1:10, 5) ) # Melt the data and calculate totals mstupid <- melt(stupid, id.vars="group") stupidTotal <- ddply(mstupid, .(group), summarize, value=sum(value)) ggplot() + geom_bar(data=stupidTotal, aes(x=group, y=value), fill="grey50") + geom_bar(data=mstupid, aes(x=group, y=value, fill=variable), stat="identity", position="dodge") + theme_bw() 

Answer 2

Find "barNest" in the plotrix package

Answer 3

Use this:

 ggplot() + geom_bar(data=stupidTotal, aes(x=group, y=value, fill="grey50"), stat="identity") + geom_bar(data=mstupid, aes(x=group, y=value, fill=variable), stat="identity", position="dodge") + theme_bw()