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

作者：张同学

来源：凹凸数据

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

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

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

1. 实现连续量的填充。

代码语言：javascript复制

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

1. 实现离散量的填充

代码语言：javascript复制

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

1. 调整地图坐标系。

代码语言：javascript复制

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

球面投影

代码语言：javascript复制

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

数据可视化 地图 可视化 图表

0 人点赞