scale_colour_manual不使用绘图栅格

Question

我正在尝试使用ggplot（gplot）绘制一个小光栅，其中手动色标用于栅格中的七个离散值。但是，scale_colour_manual似乎没有按预期工作（并且在此站点和其他站点上的其他类似帖子中指示），而是转向默认着色。

以下是不正确的ggplot版本：

这是使用R plot的正确着色：

这是我的示例栅格： https://dl.dropboxusercontent.com/u/11618932/map.tif

或

https://dl.dropboxusercontent.com/u/11618932/map.r

以下是代码：

library(raster)
library(ggplot2)
my_raster<-raster("map.tif")
my_color<-c("#177798","#D239A0","#A3E0AE","#D29D52","#8F4F3E","#917FD9","#6EC848")
gplot(my_raster) + geom_tile(aes(fill = as.factor(value))) + scale_colour_manual(values= c(my_color))   

提前感谢您的帮助