前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >R语言优雅的绘制地图附带经纬线

R语言优雅的绘制地图附带经纬线

作者头像
R语言数据分析指南
发布2022-12-20 19:55:23
6180
发布2022-12-20 19:55:23
举报

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

加载R包

代码语言:javascript
复制
library(tidyverse)
library(sf)
library(scico)

设置投影

代码语言:javascript
复制
projection_bonne <- c("+proj=bonne +lat_1=10")

计算经纬度

代码语言:javascript
复制
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)

获取地图

代码语言:javascript
复制
world_pol <- rnaturalearth::ne_countries(returnclass = "sf")

数据可视化

代码语言:javascript
复制
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 删除

本文分享自 R语言数据分析指南 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • 加载R包
  • 设置投影
  • 计算经纬度
  • 获取地图
  • 数据可视化
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档