多个数据集，百分比直方图，位置=“闪避”不起作用

Question

我有两个数据集，它们具有相同的变量，但样本大小非常不同。我希望使用position = "dodge"将两个直方图与百分比（而不是计数）并排放在一起。以下是我使用的代码：

ggplot() +
  geom_histogram(data = df1, aes(x=var1, fill="sample1", y=(..count..)/sum(..count..)),
                 binwidth=5, colour ="gray45") +
  geom_histogram(data=df2, aes(x=var1, fill="sample2", y=(..count..)/sum(..count..)), binwidth=5,
                 colour ="gray45", position=position_dodge(5)) +
  scale_y_continuous (labels = scales::percent)

我得到的数字看起来像这样。 我错了什么......？