跟着Nature学作图:R语言ggplot2堆积柱形图完整示例 |
您所在的位置：网站首页 › 堆积柱形图配色表 › 跟着Nature学作图:R语言ggplot2堆积柱形图完整示例 |
跟着Nature学作图:R语言ggplot2堆积柱形图完整示例
|
论文 A global reptile assessment highlights shared conservation needs of tetrapods https://www.nature.com/articles/s41586-022-04664-7#Sec33 数据代码链接https://github.com/j-marin/Global-reptile-assessment- 今天的推文学习一下推文中的Figure 1a的堆积柱形图，没有找到论文中的作图代码，但是找到了原始数据集，有了原始数据集就可以自己写代码来做这个图  image.png 作图数据集部分截图 image.png 读取数据集 代码语言：javascript复制library(readxl) dat01% ungroup() %>% mutate(ratio=total_number/sum(total_number)) %>% mutate(ratio=scales::percent(ratio)) -> dat02 ggplot(data = dat01,aes(x=className,y=n,fill=rlCodes))+ geom_bar(stat = "identity", position = "fill")+ scale_fill_discrete(limits=c("EX","EW","CR", "EN","VU","DD","NT","LC"))+ geom_text(data=dat02, aes(x=className,y=1, label=paste0(total_number,"\n","(",ratio,")")), inherit.aes = FALSE, vjust=-0.2)+ scale_y_continuous(expand = expansion(mult=c(0,0.1))) image.png 更改配色和其他主题 代码语言：javascript复制ggplot(data = dat01,aes(x=className,y=n,fill=rlCodes))+ geom_bar(stat = "identity", position = "fill")+ scale_fill_manual(values = c("LC"="#98d09d","NT"="#d7e698", "DD"="#dadada","VU"="#fbf398", "EN"="#f7a895","CR"="#e77381", "EW"="#9b8191","EX"="#8f888b"), limits=c("EX","EW","CR","EN","VU","DD","NT","LC"))+ geom_text(data=dat02, aes(x=className,y=1, label=paste0(total_number,"\n","(",ratio,")")), inherit.aes = FALSE, vjust=-0.2)+ scale_y_continuous(expand = expansion(mult=c(0.01,0.1)), labels = scales::percent_format())+ theme(panel.background = element_blank(), axis.line = element_line(), legend.position = "bottom")+ labs(x=NULL,y="Species threatened (%)")+ guides(fill=guide_legend(title = NULL,nrow = 1,byrow = FALSE)) image.png 制作封面图 代码语言：javascript复制library(patchwork) p2+p1 image.png 示例数据可以到论文中去下载，示例代码可以在推文中复制， |
【本文地址】
今日新闻 |
推荐新闻 |