将qplot堆积条形图缩放到相同高度

Question

我运行以下代码来获取数据的堆积条形图

qplot(factor(course.name):factor(condition):factor(condition.player),data=dfAll,geom="bar",fill=factor(textbook.usage.distribution))

我想将每个条形图缩放到相同的高度，但保持堆叠的比例相同。它应该是这样的：

我怎样才能实现这一目标？我试过了

   + geom_bar(aes(y = (..count..)/sum(..count..)), binwidth = 25) + 
    scale_y_continuous(labels = percent_format())

但是它没有将条形图缩放到相同的高度，并且百分比似乎基于所有观察的A + B + C + D的总数。