chinamap包绘制中国地图和各省地图

chinamap包绘制中国地图和各省地图

这是余光创大佬写的一个小包:GuangchuangYu/chinamap,可以用于使用ggplot2绘制中国地图。

安装

R
1
devtools::install_github('GuangchuangYu/chinamap')

使用

绘制中国地图

R
1
2
3
4
5
6
7
8
9
cn <- get_map_china()
ggplot() +
geom_map(aes(long,
lat,
map_id = id,
fill = group), map = cn, data = cn) +
coord_map() +
scale_fill_viridis_d() +
theme(legend.position = 'none')

绘制各省地图

例如,广东省地图:

R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# 广东省地图
gd <- get_map_china('广东省')
ggplot() +
geom_map(
aes(
long,
lat,
map_id = id,
),
map = gd,
data = gd,
size = 1,
fill = 'steelblue'
) +
theme(legend.position = 'none')

再例如,安徽省地图:

R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# 安徽省地图
ah <- get_map_china('安徽省')
ggplot() +
geom_map(
aes(
long,
lat,
map_id = id,
),
map = ah,
data = ah,
size = 1,
fill = 'steelblue'
) +
theme(legend.position = 'none')

# R

评论

Your browser is out-of-date!

Update your browser to view this website correctly. Update my browser now

×