Jak utworzyć "zagnieżdżony" wykres słupkowy?

Question

Ostatnie zdjęcie w this blog post.

Próbowałem wyszukiwać "zagnieżdżony wykres słupkowy" i "hierarchiczny wykres słupkowy", ale nie są to słowa.

Answer 1

Zastosowanie ggplot i tworzyć oddzielne warstwy:

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

Poszukaj 'barNest' w pakiecie plotrix

Answer 3

Użyj tego:

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()