R 中的堆积条形图 (ggplot2)，其中 y 轴和条形作为计数百分比

Question

我是 ggplot2 的新手，有一个关于生成堆积条形图的问题。我检查了书和专用网页，但无法解决问题。我有两个因素，其中一个有 2 个级别（存在-不存在），其他有 10 个级别。我们称这两个为“变量”和“水果”。

我想创建一个堆积条形图，其中每个条形反映一种水果，并且“变量”中存在/不存在观察值的数量彼此堆叠。这相对容易（参见下面图 1 的代码），但我还希望条形图和 y 轴将“变量”中存在/不存在的计数表示为百分比。换句话说，所有条形应具有相同的高度（反映总计 100%），并且存在/不存在观察值的计数应转换为百分比。

我可以使用 ..count..*100/sum(..count..) 将 y 轴刻度更改为百分比，但我无法理解如何转换实际条形。我创建了另一个带有分面的图（下面图 2 的代码），它在百分比方面实现了我想要的效果，但我更喜欢将两个条形图放在彼此之上。有谁知道如何实现这一目标？我提供了虚拟数据和可重现的示例。感谢您的任何帮助。

史蒂夫

dat <- data.frame( fruit=c("Apple", "Apple", "Orange", "Orange", "Orange", "Orange",
                   "Orange", "Pear", "Pear", "Pear"), variable=c("Present", "Absent",
                   "Present", "Present", "Present", "Present", "Absent", "Absent",
                   "Absent", "Present") )  

# stacked bar plot  
ggplot(dat, aes(x = fruit, fill = variable) ) +  
    geom_bar( aes(y = ..count..*100/sum(..count..) ) ) +
    xlab("Fruit") +
    ylab("Would like this to be percentage") + 
    scale_fill_manual("Condition", values = alpha( c("firebrick", "dodgerblue4"), 1) )  

# with faceting  
ggplot(dat, aes(x = variable, fill = variable) ) +   
    geom_bar( aes(y = ..count..*100/sum(..count..) ) ) +   
    facet_grid(. ~ fruit) +  
    xlab("Fruit") +
    ylab("Would like this to be percentage") + 
    scale_fill_manual("Condition", values = alpha( c("firebrick", "dodgerblue4"), 1) )  

Answer 1

对于第一个图表，只需将position = 'fill' 添加到您的geom_bar 线即可！您实际上不需要缩放计数，因为 ggplot 有一种自动执行此操作的方法。

ggplot(dat, aes(x = fruit)) + geom_bar(aes(fill = variable), position = 'fill')