R ggplot2小平面包裹密度图

Question

我正在使用ggplot来创建直方图+密度曲线的构面包装。这是我正在绘制的数据帧（~300行）：

aes(y=..density..)

这是csv文件的链接，以便您可以自己阅读数据框：dropbox link

如果我试试这个，除了在geom_histogram中指定的binwidth之外：

# Graph Histogram
ggplot(merged, aes(score)) + 
  geom_histogram(aes(y=..density..),binwidth=25) + 
  geom_density() +
  facet_wrap(~ motif,ncol=7) +
  labs(title=paste("MOTIF:",motif_f),x="Methylation Score",y="Frequency")

我得到：

但是，如果我尝试通过将Route::get('/{postId}/{postName}', function($postId, $postName) { return "$postId - $postName"; })->where('postName', '.*'); 添加到geom_histogram中来为每个单独的绘图创建密度图，如下所示：

{{1}}

我得到了一个不受欢迎的结果，其中y参数被拉伸出来用于某些图并且对其他图进行了限制：

关于如何在这些图上叠加密度图同时保留与第一张图像中相同的y参数的任何建议？