小编Ryu*_*san的帖子

我制作了一系列图，并且各个图的值范围不同，因此各个图之间的比例也不同。我试图保持比例一致（从0到130000），所以我设置midpoint=6500，但似乎它不起作用。

 for (i in 2016:2018){
   for (m in 1:12){
       yourfilename=paste(i,m,".jpg",sep="") 
       jpeg(file=yourfilename, width =800, height = 700)

       product_by_month<- data_all%>%
       filter(year==i & month==m)

       product_2010_map<-c_map%>%
       left_join(product_by_month,by=c("name"="city"))

       pp<-ggplot(data=product_2010_map,aes(fill=amt)) + 
           theme(panel.background=element_blank(),
                 plot.title=element_text(hjust=0.5),
                 axis.ticks=element_blank(),
                 axis.text=element_blank())+
           geom_sf()+
           scale_color_gradient2(low = "green", high = "blue",
                                midpoint=6500)
      print(pp)
      dev.off()  
  }
}