R语言优雅的绘制地图附带经纬线
今天在VIP交流群中发现有观众老爷询问一张地图的画法，小编之前有整理过；今天就来介绍如何绘制此类地图，均使用公共数据，粘贴直接运行即可。
加载R包
library(tidyverse)
library(sf)
library(scico)
设置投影
projection_bonne <- c("+proj=bonne +lat_1=10")
计算经纬度
world_graticule <- sf::st_graticule(lon=seq(-180,180,15),
lat = seq(-90,90,7.5),
ndiscr = 100,
margin = 0.001) %>%
st_transform(projection_bonne)
获取地图
world_pol <- rnaturalearth::ne_countries(returnclass = "sf")
数据可视化
ggplot() +
geom_sf(data = world_graticule,linewidth=0.11,color = "grey50")+
geom_sf(data=world_pol,aes(fill=economy))+
coord_sf()+
scico::scale_fill_scico_d( palette = "bamako",direction =1)+
theme(plot.background = element_rect(fill="white"),
panel.background = element_blank(),
legend.position = "non")
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2022-11-30，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
目录