R可视化 | 地理信息空间（下）

作者：张同学

来源：凹凸数据

如果对R可视化感兴趣的同学，记得看下积分商城，限时300兑换R可视化书籍

对上图实现的地图可视化，添加业务信息：

实现连续量的填充。

#连续量的填充
ggplot() +
  #用经度数值填充
  geom_polygon(data=final_mapdata1,aes(x=long,y=lat,group = group,fill=long),colour = 'white')+
  #加上城市名称标签
  geom_text_repel(data=frame_data,aes(x=centroid1,y=centroid2,label=name))+
  #加上业务信息（中心点经纬度信息）
  geom_text_repel(data=frame_data,aes(x=centroid1-0.25,y=centroid2+0.25,label=paste0(round(centroid1,0),",",round(centroid2,0))))+
  coord_map("polyconic")

实现离散量的填充

#离散量的填充
ggplot() +
  #用城市名称填充
  geom_polygon(data=final_mapdata1,aes(x=long,y=lat,group = group,fill=name),colour = 'white')+
  #加上城市名称标签
  geom_text_repel(data=frame_data,aes(x=centroid1,y=centroid2,label=name))+
  #加上业务信息（中心点经纬度信息）
  geom_text_repel(data=frame_data,aes(x=centroid1-0.25,y=centroid2+0.25,label=paste0(round(centroid1,0),",",round(centroid2,0))))+
  coord_map("polyconic")

调整地图坐标系。

#设置等距圆柱/球面投影-gilbert
ggplot() +
  #用城市名称填充
  geom_polygon(data=final_mapdata1,aes(x=long,y=lat,group = group,fill=name),colour = 'white')+
  #加上城市名称标签
  geom_text_repel(data=frame_data,aes(x=centroid1,y=centroid2,label=name))+
  #加上业务信息（中心点经纬度信息）
  geom_text_repel(data=frame_data,aes(x=centroid1-0.25,y=centroid2+0.25,label=paste0(round(centroid1,0),",",round(centroid2,0))))+
  coord_map("gilbert")

球面投影

#兰伯特等积方位投影-azequalarea
ggplot() +
  #用城市名称填充
  geom_polygon(data=final_mapdata1,aes(x=long,y=lat,group = group,fill=name),colour = 'white')+
  #加上城市名称标签
  geom_text_repel(data=frame_data,aes(x=centroid1,y=centroid2,label=name))+
  #加上业务信息（中心点经纬度信息）
  geom_text_repel(data=frame_data,aes(x=centroid1-0.25,y=centroid2+0.25,label=paste0(round(centroid1,0),",",round(centroid2,0))))+
  coord_map("azequalarea")

兰伯特等积方位投影

参考资料

[1]

张杰.《R语言数据可视化之美-专业图表绘制指南(增强版)》第11章地理空间型图表: https://www.cnblogs.com/zzj420133722/p/13789195.html