R堆叠百分比条形图，带有二进制因子和标签的百分比（带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

因此，想法是条形图显示FIX = 1每个因子QUANT和每个因子的位置IMG。

我使用以下方式将数据集汇总为百分比 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)

使用bb.perc我进一步定义的plyr。这一优点是百分比是在每一列本地计算的，而不是全局计算的。

谢谢大家的帮助。以下两个问题及其各自的答案对我的正确处理有很大帮助：

ggplot2的堆叠条形图标签

将标签添加到ggplot条形图

最初我做错了什么，就是将position = "fill"参数传递给 geom_bar()，由于某种原因，这使得所有条形图都具有相同的高度！

Answer 1

这是一种生成图的方法：ggplot(bb[bb$FIX == 1, ],aes(x = factor(QUANT), fill = factor(IMG),&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;y = (..count..)/sum(..count..))) +&nbsp;geom_bar() +&nbsp;stat_bin(geom = "text",&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; aes(label = paste(round((..count..)/sum(..count..)*100), "%")),&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; vjust = 5) +&nbsp;scale_y_continuous(labels = percent)更改vjust参数值以调整标签的垂直位置。