饼状物种组成图-美观且实用

R语言数据分析指南

发布于 2024-05-17 20:24:01

690

发布于 2024-05-17 20:24:01

❝本节来继续学习NC上一张特殊的物种组成图的绘制方法，数据为论文源数据，小编根据个人对数据的理解进行了绘图，结果与原图有所出入，整个过程仅参考。希望对各位观众老爷能有所帮助。「绘图代码已经整合上传到付费交流群内」，购买过小编R数据可视化文档的朋友可在所加的会员群内获取下载，有需要的朋友可关注文末介绍加入付费交流群。 ❞

论文

https://www.nature.com/articles/s41467-024-47773-9#Sec29

原图

仿制图

❝此图之前已经绘制过，此次来更新如何将其绘制成饼图的形式，主要使用jjPlot包内的geom_jjPointPie函数来完成。 ❞

jjPlot官方文档

❝https://junjunlab.github.io/jjPlot-manual/geom_jjpointpie.html ❞

加载R包

library(tidyverse)
library(ggh4x)
library(scales)
#devtools::install_github('junjunlab/jjPlot')
library(jjPlot)

数据清洗

dff <- read_tsv("data.xls") %>% 
  pivot_longer(-c(Treatments,Compartments,`Time points`)) %>% 
  dplyr::rename("Order"="name")

数据可视化

dff %>%
  ggplot(.,aes(x =Compartments,y =`Time points` ))+
  geom_jjPointPie(aes(pievar = value,
                      fill = Order,
                      group=group,
                      width = r),color=NA) +
  geom_tile(fill = NA,color = 'black')+
  labs(fill="family",x=NULL,y=NULL)+
  scale_x_discrete(expand = c(0,0))+
  scale_y_discrete(expand = c(0,0))+
  theme_bw(base_size =9) +
  theme(panel.grid = element_blank(),
        legend.background = element_blank(),
        legend.key = element_blank(),
        legend.key.height = unit(0.4,"cm"),
        legend.key.width = unit(0.4,"cm"),
        legend.text = element_text(color="black",size=7,
                                   margin=margin(0,0,0,0,unit="cm")),
        axis.text.x=element_text(color="black",size=8),
        axis.text.y=element_text(color="black",size=8),
        legend.title = element_text(color="black",size=9))

本文参与腾讯云自媒体分享计划，分享自微信公众号。

原始发表：2024-05-17，如有侵权请联系 cloudcommunity@tencent.com 删除

论文