阴影线ggplot2

Question

有人知道如何在ggplot2的区域或直方图中添加阴影线吗？

例如，我如何在ggplot2中重现以下情节？

hist(mtcars$hp, density = 10)

感谢。