如何控制色标的中间位置？

Question

我正在密谋使用：

myPalette <- colorRampPalette(rev(brewer.pal(10, "Spectral")))
usamap <- map_data("state")
ggplot(data=tmpsub,aes(x=col,y=row,color=m)) + 
  geom_point()+
  scale_colour_gradientn(name = "Test",colours = myPalette(10), limits=c(0,1))+
  geom_polygon( data=usamap, aes(x=long, y=lat,group=group),size=0.3, colour="black",fill=NA)+
  xlab('Longitude')+
  ylab('Latitude')+
  coord_map("albers", lat0=39, lat1=45)+
  theme_bw()+
  theme(legend.position = c(.93,.20),
        panel.grid = element_blank())

获取此地图

我怎样才能＆＃34;转移＆＃34;传说的中间部分向上？也就是说，我希望黄色部分（~0.5）向上移动，这样我就可以在图中看到更多的蓝色和更少的红色。