带有颜色的R ggplot条形图，如何将每列标准化为百分比？

Question

我有一个带有彩色填充图表的条形图，

ggplot(mtcars) + aes(x=factor(cyl), fill=factor(vs))+geom_bar()

如何将每列转换为百分比？像下面这样的东西？

任何提示都表示赞赏。谢谢！