Update 图11-10-1 点状地图.R

Author: EasyChart

第11章 地理空间型图表/图11-10-1 点状地图.R

@@ -1,8 +1,8 @@
 
-#EasyCharts团队出品，
-#如需使用与深入学习，请联系微信：EasyCharts
+#EasyShu团队出品，更多文章请关注微信公众号【EasyShu】
+#如有问题修正与深入学习，可联系微信：EasyCharts
 
-library(rgdal)   #提供readOGR()函数
+library(rgdal)   #提供readOGR()函数
 library(ggplot2)
 library(dplyr)
 library(RColorBrewer)
@@ -51,17 +51,17 @@ for (i in group){
   df_freq<-rbind(df_freq,cbind(mypolys[[i]]@coords,mypolys[[i]]@data))
 }
 
-#(a) 离散点状地图
+#(a) 离散点状地图
 ggplot() +
   #geom_circle(data=df_freq,aes(x0=long,y0=lat,fill=value,r=bins/2),size=0.1)+
   #geom_polygon(data=df_map, aes(x=long, y=lat, group=group),fill='white',alpha=0.9,color=NA,size=1)+
   geom_point(data=df_freq,aes(x=long,y=lat),fill='black',size=2,shape=21,stroke=0.1)+
   geom_path(data=df_map, aes(x=long, y=lat, group=group),colour="black",size=1)
 
-#(b) 统计直方的点状地图
+#(b) 统计直方的点状地图
 ggplot() +
   #geom_circle(data=df_freq,aes(x0=long,y0=lat,fill=value,r=bins/2),size=0.1)+
   geom_point(data=df_freq,aes(x=long,y=lat,fill=value),size=3,shape=21,stroke=0.1)+
   scale_fill_gradientn(colours=colormap)#+ 
   #coord_fixed()
-  #geom_path(data=df_map, aes(x=long, y=lat, group=group),colour="black",size=0.25)+
+  #geom_path(data=df_map, aes(x=long, y=lat, group=group),colour="black",size=0.25)+