r - geom_bar を使用したスケーリング内のプロポーションのプロット

Question

比率の棒グラフの作成に問題があります。

これは私の現在のコードです：

ggplot(data = d,
       aes(fill = version)) +
  theme(legend.position = 'bottom') +
  geom_bar(aes(x = cregion,
               y = ..count../sum(..count..)),
           position = 'dodge') +
  scale_y_continuous(labels = percent) + 
  coord_flip()

これが生成されます：

ただし、これにより、合計が 100% になるようにバーがスケーリングされます。私が望むのは、サーモン バーの合計が 100% になり、アクア バーの合計も 100% になることです。つまり、スケーリング内のプロポーションに関心があります。データにアクセスして変数をいじる以外に、ggplot でこれを行う方法はありますか?