How do you create a "nested" bar graph?

Question

The last image in this blog post.

I have tried searching "nested bar graph" and "hierarchical bar graph", but they may 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

Look for 'barNest' in package plotrix