Блог

Последнее изображение в этом сообщении в блоге.

Я пробовал искать «вложенную гистограмму» и «иерархическую гистограмму», но, возможно, они не подходят для этого.

Используйте ggplot и создавайте отдельные слои:

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

Найдите ‘barNest’ в пакете plotrix

Используйте это:

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