跟着Nature Communications学作图:R语言ggplot2画世界地图并用md语法添加文字标签
2023-02-19 12:27:46 时间
论文
MiDAS 4: A global catalogue of full-length 16S rRNA gene sequences and taxonomy for studies of bacterial communities in wastewater treatment plants
https://www.nature.com/articles/s41467-022-29438-7
数据链接
https://figshare.com/articles/dataset/Dueholm2021a_data_zip/16566408/1
代码链接
https://github.com/msdueholm/MiDAS4
今天的推文我们重复一下论文中的Figure1a 世界地图
image.png
之前的推文介绍过世界地图添加采样地点
跟着Nature Communication学作图:R语言ggplot2画世界地图展示采样地点
首先是地图
我这里就不画国家的边界了,本来是想添加每个洲的边界的,但是暂时没有找到办法,想到了再来介绍吧
library(ggplot2)
world<-map_data("world")
ggplot() +
geom_polygon(data=world,aes(x=long,y=lat,group=group),
fill="#dedede")+
theme_bw()+
scale_y_continuous(expand = expansion(mult=c(0,0)))+
scale_x_continuous(expand = expansion(add=c(0,0))) -> world.map
world.map
image.png
添加采样点
df<-read.csv("figure1df.csv")
world.map+
geom_point(data = df,
aes(x=Longitude,
y=Latitude,
colour = Process_type2), size=2)+
scale_color_manual(values = c("#3373a5","#97b1c0",
"#f8ad63",
"#d8191a",
"#c4c4c4"))
image.png
添加文本标签
library(ggtext)
dftext<-data.frame(
x=c(-180,-150,-10,100,50,-50),
y=c(40,-50,-50,-50,50,60),
label=c("**North america**<br>3 countries<br>107 cities<br>145WWTPs",
"**South american**<br>2 countries<br>29 cities<br>38 WWTPs",
3,4,5,6)
)
world.map01 +
theme(legend.position = c(0.9,0.7),
legend.background = element_rect(fill="transparent"),
legend.box.background = element_rect(color="gray",
fill="transparent"),
legend.key = element_rect(fill="transparent"))+
geom_richtext(data=dftext,
aes(x=x,y=y,label=label),
nudge_x =0,hjust=0,
fill="transparent")
image.png
示例数据和代码可以直接到论文中去获取
相关文章
- Jgit的使用笔记
- 利用Github Action实现Tornadofx/JavaFx打包
- 叹息!GitHub Trending 即将成为历史!
- 微软软了?开源社区讨论炸锅,GitHub CEO 亲自来答
- GitHub Trending 列表频现重复项,前后端都没去重?
- Photoshop Elements 2021版本软件安装教程(mac+windows全版本都有)
- (ps全版本)Photoshop 2020的安装与破解教程(mac+windows全版本都有)
- (ps全版本)Photoshop cc2018的安装与破解教程(mac+windows全版本,包括2023
- 环境搭建:Oracle GoldenGate 大数据迁移到 Redshift/Flat file/Flume/Kafka测试流程
- 每个开发人员都要掌握的:最小 Linux 基础课
- 来撸羊毛了!Windows 环境下 Hexo 博客搭建,并部署到 GitHub Pages
- 超实用!手把手入门 MongoDB:这些坑点请一定远离
- 【GitHub日报】22-10-09 zustand、neovim、webtorrent、express 等4款App今日上新
- 【GitHub日报】22-10-10 brew、minio、vite、seaweedfs、dbeaver 等8款App今日上新
- 【GitHub日报】22-10-11 cobra、grafana、vue、ToolJet、redwood 等13款App今日上新
- Photoshop 2018 下载及安装教程(mac+windows全版本都有,包括最新的2023)
- Photoshop 2017 下载及安装教程(mac+windows全版本都有,包括最新的2023)
- Photoshop 2020 下载及安装教程(mac+windows全版本都有,包括最新的2023)
- Photoshop 2023 资源免费下载(mac+windows全版本都有,包括最新的2023)
- 最新版本Photoshop CC2018软件安装教程(mac+windows全版本都有,包括2023