为密度直方图着色ggplot

Question

所以我有下面的直方图，它给了我所需要的东西：

n <- ggplot(diamonds, aes(x=carat)) + geom_histogram(aes(y = ..density.., 
     fill= ..count..)) + geom_density(aes(x=carat)) 

那么如何使直方图的比例颜色从红色变为绿色？我试过这个：

n +scale_color_gradient(low="green", high="red")

它不起作用。有什么建议吗？