如何将geom_density和geom_histogram放在相同的计数范围内

Question

我想将geom_histogram和geom_density放在相同的比例上。我可以通过使用geom_histogram(aes(y = stat(density)))在一个方向上做到这一点。如果我想要所有密度等级的东西，这将非常有用。但是，我想要的是计数尺度的东西。但是添加geom_density(aes(y = stat(count)))会导致密度线与直方图中的计数不在同一比例上。有没有办法在相同的计数范围内同时获得密度和直方图？

library(tidyverse)

df <- tibble(x = rnorm(10000))

ggplot(df, aes(x)) +
  geom_histogram(aes(y = stat(density))) +
  geom_density()
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(df, aes(x)) +
  geom_histogram() +
  geom_density(aes(y = stat(count)))
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

^{由reprex package（v0.2.1）于2019-05-01创建}