R 共享同一y轴的多个直方图上的密度曲线

我需要在共享相同y轴的3个直方图上叠加正常密度曲线。对于每个直方图，曲线需要分开

我的数据帧（示例）：

我现在被困在如何将3个变量的正态密度曲线（每个直方图的单独曲线）叠加在我生成的直方图上。我不介意最终的数字在y轴上显示计数或密度

关于如何从这里开始有什么想法吗

---

提前感谢。

我相信问题中的代码几乎是正确的，下面的代码只是使用@akrun提供的链接中的答案

注意，我在最后一个加号前加了一个注释字符，注释掉了对

facet\u wrap

的调用

library(ggplot2)
library(tidyr)

df %>% 
  gather(key = Type, value = Value) %>% 
  ggplot(aes(x = Value, color = Type, fill = Type)) + 
  geom_histogram(aes(y = ..density..),
                 binwidth = 8, position = "dodge") +
  geom_density(alpha = 0.25) #+
  facet_wrap(~ Type)

---

@akrun，谢谢，但是您建议中的示例解决了单个变量的问题。那不是我想要的。我一直在努力寻找解决方案，当有多个直方图共享同一个y轴时。你需要一个

facet_网格

/

facet_包裹

？@Stéphane Laurent，如果faceting可以以1 X 3的形式进行，以便geom_直方图（）+geom_密度（）可以共享同一个y轴，那太好了。问题已经解决了吗？如果没有，请检查我的答案，但我想删除它，在我看来，它似乎是@akrun的第二个链接的复制品。@RuiBarradas我认为OP是正确的。我没有检查

收集

部分。删除了链接

library(ggplot)
library(tidyr)

df %>% 
gather(key=Type, value=Value) %>% 
ggplot(aes(x=Value,fill=Type)) + 
geom_histogram(binwidth = 8, position="dodge") 

library(ggplot2)
library(tidyr)

df %>% 
  gather(key = Type, value = Value) %>% 
  ggplot(aes(x = Value, color = Type, fill = Type)) + 
  geom_histogram(aes(y = ..density..),
                 binwidth = 8, position = "dodge") +
  geom_density(alpha = 0.25) #+
  facet_wrap(~ Type)