如何在使用要填充的因子时在ggplot条形图中添加百分比标签

Question

编辑：此问题与How to draw stacked bars in ggplot2 that show percentages based on group?不重复。那里的数据不是纯粹的因素，并且在

中包含“y =”

ggplot(df, aes(x = factor(year), y = amount, fill = type))

据我所知，“y =”与我的例子无关。

那就是说，我的目标是显示ggplot中填充因子的百分比。这与其他问题有点不同，因为我不想显示x变量的百分比 - 我希望百分比基于填充变量，这将是一个因素。使用mtcars可能最容易说明。

df<-data(mtcars)

ggplot(mtcars, aes(x = factor(mtcars$vs),fill=factor(mtcars$am))) +
  geom_bar(aes(y=(..count..)/sum(..count..))) +
  scale_y_continuous(labels=percent)

这给了我们：

然而，我想要的是