R 带ggplot的条形图：颜色

我有以下数据帧：

> dput(arrivalsITA)
structure(list(year = c(2014L, 2014L, 2014L, 2014L, 2014L, 2014L, 
2014L, 2014L, 2014L, 2014L, 2014L, 2014L, 2015L, 2015L, 2015L, 
2015L, 2015L, 2015L, 2015L, 2015L, 2015L, 2015L, 2015L, 2015L
), month = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 
4, 5, 6, 7, 8, 9, 10, 11, 12), arrivals = c(2171, 3335, 5459, 
15679, 14599, 22641, 24031, 24774, 26107, 0, 0, 0, 3528, 4353, 
2283, 16063, 21221, 22905, 23186, 22607, 15922, 0, 0, 0), date = structure(c(16071, 
16102, 16130, 16161, 16191, 16222, 16252, 16283, 16314, 16344, 
16375, 16405, 16436, 16467, 16495, 16526, 16556, 16587, 16617, 
16648, 16679, 16709, 16740, 16770), class = "Date")), .Names = c("year", 
"month", "arrivals", "date"), row.names = c(NA, -24L), class = "data.frame")

为了使用ggplot绘制条形图，我已经完成了以下工作：

library(ggplot2)
ggplot(data = arrivalsITA, aes(x=date, y=arrivals, fill=-arrivalsITA$arrivals, label=arrivals, colour=-arrivalsITA$arrivals)) + 
  geom_bar(stat="identity")+ geom_text(col="black",nudge_y = 1)

获取以下图片：

如何使用heat.colors（）函数使红色代表高到达值？

看一看。您需要缩放填充梯度（颜色=热量。颜色（10））。另外，不要在

aes（）

中使用

$

符号。相关：请查看。您需要缩放填充梯度（颜色=热量。颜色（10））。另外，不要在

aes（）

中使用

$

符号。相关：