x中每个组的geom_bar百分比

Question

当我尝试使用geom_bar计算y = (..count..)/sum(..count..)*100中的观察百分比时，它不会提供x中每个组的百分比。这是一个例子：

ggplot(data = mtcars)+
  geom_bar(aes(x = factor(cyl), 
               y = (..count..)/sum(..count..)*100,
               fill = factor(gear)),
           position = "dodge")  

这里，给定因子（cyl）的所有柱的百分比之和不是100％;相反，当您添加所有组中所有条形的百分比时，您将达到100％。例如，对于factor(cyl)==4，比例为1 / 11,8 / 11和2/11：9％+ 73％+ 18％= 100％，但上面的代码显示百分比：3.12％，25 ％和6.25％（总和不等于100％按组）。如何让它按组显示百分比？