今天在VIP交流群中发现有观众老爷询问一张地图的画法,小编之前有整理过;今天就来介绍如何绘制此类地图,均使用公共数据,粘贴直接运行即可。
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")