ggplot 组百分比条形图

Question

如果我执行以下命令

data(mtcars)
ggplot(data=mtcars, aes(cyl))+
  geom_bar(aes(fill=as.factor(gear), y = (..count..)/sum(..count..)), position="dodge") + 
  scale_y_continuous(labels=percent)

我会得到

但是，我真正想做的是让每个gear 级别加起来达到 100%。所以，gear 是我正在查看的子组，我想知道每个组内的分布。

我不想使用facets，也不想融化数据。有没有办法做到这一点？

Answer 1

我正在寻找这个确切问题的答案。这就是我使用从 Stack Overflow 汇总的信息并熟悉（即反复试验）来自@的 ..x..、..group.. 和 ..count.. 得出的结果西蒙的回答中提供了 987654321@ 链接。除了 ggplot 之外，它不需要任何其他包。

library(ggplot2)
ggplot(mtcars, aes(x=as.factor(cyl), fill=as.factor(gear)))+
  geom_bar(aes( y=..count../tapply(..count.., ..x.. ,sum)[..x..]), position="dodge" ) +
  geom_text(aes( y=..count../tapply(..count.., ..x.. ,sum)[..x..], label=scales::percent(..count../tapply(..count.., ..x.. ,sum)[..x..]) ),
            stat="count", position=position_dodge(0.9), vjust=-0.5)+
  ylab('Percent of Cylinder Group, %') +
  scale_y_continuous(labels = scales::percent)

生产

Answer 2

首先：您的代码对我来说是不可重现的（即使在包含library(ggplot2) 之后也不行）。我不确定..count.. 是否是我不知道的花哨语法，但无论如何，如果我能够立即重现会更好:-)。

话虽如此，我认为您在 http://docs.ggplot2.org/current/geom_bar.html 中描述了您正在寻找的内容，并将代码应用于您的示例

library(ggplot2)
data(mtcars)
mtcars$gear <- as.factor(mtcars$gear)
ggplot(data=mtcars, aes(cyl))+
  geom_bar(aes(fill=as.factor(gear)), position="fill")

生产

这是你要找的吗？

---

事后思考：必须学习 melt() 或其替代方法。但是，reshape2 中的 melt() 在大多数用例中被 tidyr 包中的 gather() 成功。

Answer 3

Sebastian Sauer 提供了有关如何执行此操作的好资源。解决您的问题的最快方法是方法 4，您将 ..prop.. 替换为 (..count..)/sum(..count)：

# Dropping scale_y_continuous, since you do not define percent
ggplot(data=mtcars, aes(cyl))+
  geom_bar(aes(fill=as.factor(gear), y = (..count..)/sum(..count..)), 
position="dodge")

我使用的另一种方法，类似于链接页面中的方式 1，是使用 dplyr 计算百分比，使用 stat = 'identity' 在条形图中使用 y 美学：

mtcars %>%
  mutate(gear = factor(gear)) %>%
  group_by(gear, cyl) %>%
  count() %>%
  group_by(gear) %>%
  mutate(percentage = n/sum(n)) %>%
  ggplot(aes(x = cyl, y = percentage, fill = gear)) +
    geom_bar(position = 'dodge', stat = 'identity')

Answer 4

我将代码编辑为：

ggplot(data, aes(fill=bolumtam, y=Languagevalue/tapply(Languagevalue, Language ,sum)[Language], x=Language)) + 
    geom_bar(aes( y=Languagevalue/tapply(Languagevalue, Language ,sum)[Language]), position="dodge", stat="identity")+
 geom_text(aes( y=Languagevalue/tapply(Languagevalue, Language ,sum)[Language], label=scales::percent(Languagevalue/tapply(Languagevalue, Language ,sum)[Language]) ),
            stat="identity", position=position_dodge(0.9), vjust=-0.5)+
 scale_y_continuous(labels = scales::percent)

但结果如下

我想生成如下图：