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

❝

本节来继续学习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))

关注下方公众号下回更新不迷路

❝

本节介绍到此结束，有需要学习R数据可视化的读者，欢迎购买小编的R数据可视化案例文档，「购买将自动获得2024年度更新的绘图文档代码，无需在付费」。目前此文档(2023+2024)「已经更新上传了150+案例文档」，每个案例都附有相应的数据和代码，并配有对应的注释文档，方便大家学习和参考。可到小编的「淘宝店铺-R语言数据分析指南」下单购买。

❞

「2024更新的绘图内容同时包含数据+代码+markdown注释文档+文档清单」

注：2022版与2023版文档为单独售卖，买任意一年的都可获取2024的文档，「小编只分享案例文档不额外回答问题。」

淘宝店铺

2024年案例图展示