我想制作一张看起来像这样的图形：
在此处输入图片说明
我的原始数据集看起来像这样：
> 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()，由于某种原因，这使得所有条形图都具有相同的高度！