❝本节来继续学习NC上一张特殊的物种组成图的绘制方法,数据为论文源数据,小编根据个人对数据的理解进行了绘图,结果与原图有所出入,整个过程仅参考。希望对各位观众老爷能有所帮助。「绘图代码已经整合上传到付费交流群内」,购买过小编R数据可视化文档的朋友可在所加的会员群内获取下载,有需要的朋友可关注文末介绍加入付费交流群。 ❞
https://www.nature.com/articles/s41467-024-47773-9#Sec29
❝此图之前已经绘制过,此次来更新如何将其绘制成饼图的形式,主要使用jjPlot包内的geom_jjPointPie函数来完成。 ❞
❝https://junjunlab.github.io/jjPlot-manual/geom_jjpointpie.html ❞
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))