中国地图shp文件_使用 GEOJSON 文件绘制县级和市级中国地图

连享会-文本分析与爬虫专题研讨班

诚邀助教：连享会-文本分析与爬虫专题

这篇教程的内容比较。。。丧心病狂。旨在演示灵活组合 geojson 文件绘制复杂的区域地图。我首先是将 34 个省级的 GEOJSON 文件组合起来绘制了市级中国地图，然后又将 344 个市级的 GEOJSON 文件组合起来绘制了县级中国地图。当然绘制县级和市级中国地图的最好办法是使用之前我提供的 shp 文件。

除此之外，本文还介绍了 here 包 和 fs 包的使用，here 包可以方便的管理多个文件夹；fs 包提供了一些方便文件索引的函数。

最后我还介绍了一个新的下载 GEOJSON 数据的网址。

绘制市级中国地图

首先是导入一些需要的 R 包和设置字体：

library(geojsonsf)library(sf)library(ggplot2)library(fs)library(here)library(hrbrthemes)library(cowplot)# devtools::install_github('czxa/hotkeys')# hotkeys 是我写的一个自用的 R 包，可以用于设定快捷键，这里使用这个包里面的 `%w/o%` 操作符library(hotkeys)cnfont = "STLibianTC-Regular"enfont = "CascadiaCode-Regular"

然后是将 34 个省级的 geojson 文件读取合并。

%w/o% 是放置在我编写的 hotkeys 包里面的一个函数，这个函数可以用于从某个向量里剔去指定元素，例如：

c(1, 2, 3, 4, 5) %w/o% 1## [1] 2 3 4 5

dir_ls() 返回的是一个文件名向量：

setwd(here::here("d3js-geojson/china/geometryProvince"))city df ## Reading layer `71' from data source `/Users/czx/Desktop/使用 GEOJSON 文件绘制县级和市级中国地图/d3js-geojson/china/geometryProvince/71.json' using driver `GeoJSON'## Simple feature