使用ggplot制作堆叠百分比条形图，显示二元因子的百分比和标签。

Question

我希望制作一个看起来像这样的图形：

我的原始数据集类似于这样：

> bb[sample(nrow(bb), 20), ]
      IMG QUANT FIX
25663   1     1   0
7936    2     2   0
23586   3     2   0
23017   2     2   1
31363   1     3   1
7886    2     2   0
23819   3     3   1
29838   2     2   1
8169    2     3   1
9870    2     3   0
31440   2     1   0
35564   3     1   0
24066   1     2   0
12020   3     2   0
6742    3     2   0
6189    2     3   0
26692   2     3   0
1387    3     2   0
31839   2     3   1
28637   3     2   0

所以，这个想法是让条形图显示每个因素QUANT和每个因素IMG中FIX = 1的情况。我使用plyr将数据集聚合为百分比。

library(plyr)
bb.perc <- ddply(bb,.(QUANT,IMG),summarise,FIX.PROP = sum(FIX) / length(FIX))

它做了几乎正确的事情：

  QUANT IMG   FIX.PROP
1     1   1 0.52439024
2     1   2 0.19085366
3     1   3 0.13658537
4     2   1 0.20414201
5     2   2 0.53964497
6     2   3 0.09585799
7     3   1 0.29000000
8     3   2 0.13000000
9     3   3 0.40705882

但是现在如果我制作一个图表，它并没有考虑 FIX==0 的情况，即所有的条形都具有相同的高度，即100%，这不是我想要的。请注意，各个QUANT子帧的比例不会加起来等于100%：

> sum(bb.perc[1:3,]$FIX.PROP)
[1] 0.8518293
> sum(bb.perc[4:6,]$FIX.PROP)
[1] 0.839645
> sum(bb.perc[7:9,]$FIX.PROP)
[1] 0.8270588

我在R中所能做的最好的是显示计数：

# Take only the positive samples
bb.pos <- bb[bb$FIX == 1,]
# Plot the counts
ggplot(bb,aes(factor(QUANT),fill=factor(IMG))) + geom_bar() +
  scale_y_continuous(labels=percent)

并导致以下结果: 但这也不是我想要的:

• 百分比刻度差距很大。我需要一种方式将100％点传递给percent函数，但我不知道该怎么做。
• 缺少标签。

在SO上有很多类似的问题，但我似乎缺乏足够的智力（或对R的理解）来从中得出一个特定问题的解决方案。

感谢任何指针！

编辑：Sven Hohenstein已经提供了一个答案，但这是我自己最终解决它的方式：

> ggplot(bb.perc,aes(x=factor(QUANT),y=FIX.PROP,label=paste(round(FIX.PROP*100),
     "%"),fill=factor(IMG)))+ geom_bar(stat="identity") + geom_text(position="stack",
     aes(ymax=1),vjust=5) + scale_y_continuous(labels = percent)

使用我之前用 plyr 定义的 bb.perc。这种方法的好处是百分比在每列中都是局部计算而不是全局计算。

感谢大家的帮助，以下两个问题及其相应的答案对我帮助很大：

Stacked Bar Graph Labels with ggplot2

Adding labels to ggplot bar chart

我最初做错的是将 position = "fill" 参数传递给了 geom_bar()，这个原因使得所有的条形图高度都一样！

- Aleksandar Dimitrov

Answer 1

这是一种生成图表的方法：

ggplot(bb[bb$FIX == 1, ],aes(x = factor(QUANT), fill = factor(IMG), 
                             y = (..count..)/sum(..count..))) +
 geom_bar() +
 stat_bin(geom = "text",
          aes(label = paste(round((..count..)/sum(..count..)*100), "%")),
          vjust = 5) +
 scale_y_continuous(labels = percent)

改变vjust参数的值以调整标签的垂直位置。

- Sven Hohenstein

---

太棒了，谢谢！我刚刚才得到了正确的图形，但是我是使用 plyr 的方式来完成的。我不知道在 ggplot 内部也可以实现这个功能！ - Aleksandar Dimitrov