r - 将 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 的总数。