如何在原始直方图的顶部绘制两个估计的密度曲线

Question

我知道之前已经提出了类似的问题，但没有任何具体针对我的问题：

gamma_j <- function(x) {
  y <- .120605*dgamma(x, shape =  2.2181, scale = 4.310067) + 
    .879395*dgamma(x, shape = 5.2007, scale = 8.7208)
  return(y)
}

j_plot <- plot(gamma_j(0:120), type =  "l")

上面是我创建的伽玛混合物。如何在我使用ggplot创建的原始直方图上叠加它？

pop_dist <- ggplot(HHMembers, aes(Age)) +
  geom_histogram(binwidth = 1)
pop_dist

对不起，我不知道如何输入Age数据本身。有数以万计的数据点，因此dput这样的东西对我来说太大了，无法复制和粘贴。

但正如你可以看到一个人正在使用ggplot而另一个人正在使用内置的绘图功能，所以我不确定如何将它们堆叠在一起。另外一个是密度，另一个是频率。将频率除以问题的总修复部分吗？

谢谢（：

Answer 1

只需绘制直方图，然后运行

curve(gamma_j, add=TRUE)