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

傷城~ 2022-12-14 13:44 151阅读 0赞

![format_png][]

作者：张同学

来源：凹凸数据

[前文：R可视化 | 地理信息空间（上）][R_ _]

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

![format_png 1][]

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

1.  实现连续量的填充。

#连续量的填充
    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")

![format_png 2][]

1.  实现离散量的填充

#离散量的填充
    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")

![format_png 3][]

1.  调整地图坐标系。

#设置等距圆柱/球面投影-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")

![format_png 4][] 球面投影

#兰伯特等积方位投影-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")

![format_png 5][] 兰伯特等积方位投影

### 参考资料 ###

\[1\]

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

![format_png 6][]

[format_png]: /images/20221123/0005f00acfe34b7eb67a00f94b703cde.png
[R_ _]: http://mp.weixin.qq.com/s?__biz=MzU5Nzg5ODQ3NQ%3D%3D&chksm=fe4edd51c93954471106e3b2def5f3434d6cab74451445d727c70680f8edcd8cdb72e554488f&idx=4&mid=2247497941&scene=21&sn=ea55408d1c2c067559cc28adc1ec02c6#wechat_redirect
[format_png 1]: /images/20221123/b60f3dd77b48402b92d669d0854dc22a.png
[format_png 2]: /images/20221123/0072d785360f4c26aa056747b37331cc.png
[format_png 3]: /images/20221123/c513f13f0b9a4e239a5c1ee47c629c4b.png
[format_png 4]: /images/20221123/44e192004dd74e97a691614754435079.png
[format_png 5]: /images/20221123/67f1f9888be340cbb41c2b1cf2d8779b.png
[format_png 6]: /images/20221123/029ac2fdcd7e47c78ed0e2efb28bc47b.png