r - ggplot2中根据高度的条形颜色

Question

如何根据其高度更改条形图中条形的颜色？这是一个例子:

library(ggplot2)
year = c(2000,2000,2001,2001,2001,2002,2003,2003,2004,2004,2004,2004,2005)
df = data.frame(year)

ggplot(df) + geom_bar(aes(year,fill=year))

我需要根据每年的计数来调整颜色(例如，浅蓝色代表计数较低的年份，深蓝色代表计数较高的年份)。

我可以通过使用计数作为数据框(2000;2、2001;3等)来做到这一点，但这需要在代码的其他部分进行大量工作，所以我宁愿保留这种格式的数据。

Answer 1

使用由 ggplot() 函数计算的 ..count.. 作为填充变量。

ggplot(df) + geom_bar(aes(year,fill=..count..))