R ggplot语言直方图加概率密度曲线

我想在图的两侧同时添加概率密度曲线，尝试了geom_density()，但是无效，请各位大佬帮帮忙，谢谢。