利用R下载中国shp格式地图脚本

利用R下载中国shp格式地图脚本：

首先，需要安装和加载一些必要的R包：

复制代码

install.packages("maptools")

install.packages("ggplot2")

install.packages("rgeos")

install.packages("RColorBrewer")

library(maptools)

library(ggplot2)

library(rgeos)

library(RColorBrewer)

接着，可以从网上下载中国地图的shp文件，例如从（gadm.org）这个链接下载中国地图的shp文件。下载完成后，将文件解压到本地指定的文件夹中，例如"./china_shp"。

复制代码

# 读取中国地图的shp文件

china_map <- readShapeSpatial("./china_shp/gadm36_CHN_1.shp")

接下来，可以使用ggplot2包来绘制地图。首先，将地图数据转换成数据框形式。

复制代码

# 将地图数据转换成数据框形式

china_map_df <- fortify(china_map)

然后，利用ggplot2的geom_polygon函数来绘制地图。

复制代码

# 绘制地图

ggplot(china_map_df, aes(x=long, y=lat, group=group)) +

geom_polygon(fill="white", color="black") +

coord_equal() +

theme_void()

最后，可以将地图导出为shp格式。

复制代码

# 导出为shp格式

writeSpatialShape(china_map, "./china_shp/china_map.shp")

注意：导出shp文件需要安装rgdal包。

本文使用 文章同步助手 同步