R语言mapsf包，mf_shadow绘制阴影

R语言mapsf包，mf_shadow绘制阴影

# Fri Jun 25 19:29:23 2021 -

# 字符编码：UTF-8
# R 版本：R x64 4.1 for window 10
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐✨
#.rs.restartR()
require(mapsf)
rm(list = ls());gc()

?   mf_shadow   #   绘制阴影。
mtq <- mf_get_mtq()
mf_shadow(mtq)
mf_map(mtq, add = TRUE)
# Fri Jun 25 19:29:44 2021 --
require(sf)
mp <- st_read('https://geo.datav.aliyun.com/areas_v3/bound/geojson?code=440112')

mf_map(mp)
mf_shadow(mp,add = T,col = '#CCFFFF',cex = 3)
mf_label(x = mp,var = 'name',cex = 2)
dev.copy(png, "mf_shadow绘制阴影.png");dev.off()
# Fri Jun 25 19:32:58 2021 --end