R （ggplot2） 中的堆积条形图，其中 y 轴和条形占计数的百分比

问：

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

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

我可以使用 .. 将 y 轴刻度更改为百分比。计数。。*100/和（..计数..）但我无法理解如何转换实际的柱线。我创建了另一个带有分面的图（下面的图 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) )