使用 ggplot2 绘制单个和多个省份地图

简介: 使用 ggplot2 绘制单个和多个省份地图

上一篇教程介绍了绘制完整地图的方法:R 语言绘制十段线地图,给特定省份填色,今天我们将继续探索分省市地图的绘制。

本文的所有代码以及数据可以在公众号后台回复 [中国地图绘制] 免费获得。如果需要往期部分推文代码,可去小编的 Github 获得。


数据准备

首先,加载所需 R 包,之后导入数据集,包含空间信息的 shp 文件。

library(rgdal)
library(ggplot2)
library(maptools)
library(mapproj)
library(ggsn)
library(readxl)
library(sf)
show_data <- read_xlsx("城市数据.xlsx","hubei")
shp_data <- st_read("CHN_adm/CHN_adm2.shp")


show_data 数据集

合并特定省份的数据

由于 show_data 中的城市名称是字符型,因此在合并数据之前,需要将 shp_data 中的城市名称转成字符型。然后,使用 left_join() 合并数据。

shp_data$NL_NAME_2 <- as.character(shp_data$NL_NAME_2)
my_data <- dplyr::left_join(show_data, shp_data,by = c("city" = "NL_NAME_2"))

图形绘制

在省份地图上标记各个城市。

ggplot(data = my_data) + geom_sf(aes(fill = as.factor(value), geometry = `geometry`)) + 
  geom_sf_text(aes(label = `city`,geometry = `geometry`), color = 'Black',size=2)+
  xlab("Long (°E)") + ylab("Lat (°N)") + 
  ##更改图形颜色,不加这个语句使用随机配色
  scale_fill_manual(
    "value",
    values = c("#DFD3F2", "#00C2F9", "#FFF7D0"),
    breaks = c("A", "B", "C"),
    labels = c("A", "B", "C")
  )+
  theme(legend.position = "top",panel.background = element_rect(fill = "white",color = "black"),
        panel.grid = element_line(color = "grey"))


绘制多个省份地图

有时候需要绘制一个区域的地图,比如:长三角京津冀等,绘图方法和单个省份一样,只是需要将多个省份的数据存储在一个文件中。

合并数据

小编使用的是 xlsx 格式的数据,因为可以创建多个 sheet,调用起来比较方便。

hubei <- read_xlsx("测试数据.xlsx","hubei")
jiangxi <- read_xlsx("测试数据.xlsx","jiangxi")
all_province <- rbind(hubei,jiangxi)

绘图

数据处理好后,其他步骤和之前一样。

shp_data <- st_read("CHN_adm/CHN_adm2.shp")
shp_data$NL_NAME_2 <- as.character(shp_data$NL_NAME_2)
data2 <- dplyr::left_join(all_province, shp_data,by = c("city" = "NL_NAME_2"))
ggplot(data = data2) + geom_sf(aes(fill = as.factor(value), geometry = `geometry`)) + 
  geom_sf_text(aes(label = `city`,geometry = `geometry`), color = 'Black',size=2)+
  xlab("Long (°E)") + ylab("Lat (°N)") + 
  ##更改图形颜色,不加这个语句使用随机配色
  scale_fill_manual(
    "value",
    values = c("#DFD3F2", "#00C2F9", "#FFF7D0"),
    breaks = c("A", "B", "C"),
    labels = c("A", "B", "C")
  )+
  theme(legend.position = "top",panel.background = element_rect(fill = "white",color = "black"),
        panel.grid = element_line(color = "grey"))


小结

绘制地图的命令还是比较简单的,关键是得有 shp 文件。

本文的所有代码以及数据可以在公众号后台回复 [中国地图绘制] 免费获得。如果需要往期部分推文代码,可去小编的Github获得。

目录
相关文章
|
存储 数据可视化 定位技术
使用 ggplot2 绘制比较各省份及其区县的详细数据
使用 ggplot2 绘制比较各省份及其区县的详细数据
206 0
|
定位技术
GeoScene Pro发布地图
GeoScene Pro发布地图
815 0
|
9月前
|
定位技术
R语言raster包计算多个栅格图像平均值、标准差的方法
R语言raster包计算多个栅格图像平均值、标准差的方法
224 1
|
8月前
|
SQL 数据可视化 定位技术
见证数据的视觉奇迹——DataV Atlas
阿里云DataV的DataV-Atlas是一款专注于地理数据可视化的工具,提供时空数据分析和地图发布功能,适合快速创建地图并分享。与ArcGIS Server相比,DataV.GeoAtlas更侧重于数据可视化和云服务集成,适合非专业用户,而ArcGIS Server是全面的GIS服务平台,适合复杂分析和定制化应用。用户可通过阿里云免费试用DataV-Atlas,体验包括数据上传、地图制作和分析在内的功能。
见证数据的视觉奇迹——DataV Atlas
python 绘图 实现图中为字体添加下标、上标
python 在绘图添加图例时,一些数学符号或者公式常常包含上标和下标,这里简单描述了如何实现上述要求。
python 绘图 实现图中为字体添加下标、上标
|
9月前
|
存储 编解码 定位技术
R语言读取大型NetCDF文件
失踪人口回归,本篇来介绍下R语言读取大型NetCDF文件的一些实践。
168 4
ggplot2 | 关于标题,坐标轴和图例的细节修改,你可能想了解
ggplot2 | 关于标题,坐标轴和图例的细节修改,你可能想了解
404 0
|
JSON 缓存 监控
基于云原生网关的流量防护实践
本文详尽地介绍了如何在云原生网关上做流量防护,包括在不同的场景下该配置何种防护规则,并给出了详细的使用路径,可以从中体验出云原生网关的流量防护功能相对于其它网关产品限流功能的优势。作为云上网关的核心功能之一,后续我们也会持续强化流量防护功能,也欢迎大家持续关注阿里云官网的 MSE 微服务引擎产品动态。
|
数据可视化 数据挖掘 图计算
使用ComplexHeatmap绘制复杂热图|Note2:单个热图(万字超详细教程)(下)
使用ComplexHeatmap绘制复杂热图|Note2:单个热图(万字超详细教程)(下)
1602 0
使用ComplexHeatmap绘制复杂热图|Note2:单个热图(万字超详细教程)(下)
|
Nacos
解决:java.lang.IllegalStateException: Invalid host: lb://exam_farmer_service
解决:java.lang.IllegalStateException: Invalid host: lb://exam_farmer_service
440 0
解决:java.lang.IllegalStateException: Invalid host: lb://exam_farmer_service

热门文章

最新文章