R堆叠百分比条形图，带有二进制因子和标签的百分比（带ggplot）

Question

我想制作一张看起来像这样的图形：在此处输入图片说明我的原始数据集看起来像这样：> bb[sample(nrow(bb), 20), ]      IMG QUANT FIX25663   1     1   07936    2     2   023586   3     2   023017   2     2   131363   1     3   17886    2     2   023819   3     3   129838   2     2   18169    2     3   19870    2     3   031440   2     1   035564   3     1   024066   1     2   012020   3     2   06742    3     2   06189    2     3   026692   2     3   01387    3     2   031839   2     3   128637   3     2   0因此，想法是条形图显示FIX = 1每个因子QUANT和每个因子的位置IMG。我使用以下方式将数据集汇总为百分比 plyrlibrary(plyr)bb.perc <- ddply(bb,.(QUANT,IMG),summarise,FIX.PROP = sum(FIX) / length(FIX))它几乎做对了：  QUANT IMG   FIX.PROP1     1   1 0.524390242     1   2 0.190853663     1   3 0.136585374     2   1 0.204142015     2   2 0.539644976     2   3 0.095857997     3   1 0.290000008     3   2 0.130000009     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 samplesbb.pos <- bb[bb$FIX == 1,]# Plot the countsggplot(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), 

                             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参数值以调整标签的垂直位置。