NC图表复现|箱线图叠加多重注释元素
ixxmu opened this issue · comments
NC图表复现|箱线图叠加多重注释元素 by R语言数据分析指南
欢迎关注R语言数据分析指南
❝本节继续来复现NC上的图表，箱线图叠加多重注释元素，「图形看起来也是比较简单，但是细品起来细节也不少」，数据为论文源数据，小编进行了图形绘制，整个过程仅参考。希望对各位观众老爷能有所帮助。「数据代码已经整合上传到会员交流群」，购买过小编VIP的朋友可在所加的会员群内获取下载，有需要的朋友可关注文末介绍加入VIP交流群。
❞
关于永久群内容的说明
❝给予长期支持我们的忠实读者们一个特别待遇：购买小编2023年VIP会员文档的读者，「将自动获得2024年及以后更新的绘图文档代码，无需额外付费目前已包含100+学习案例。」有需要学习数据可视化的朋友，欢迎到小编的「淘宝店铺」 「R语言数据分析指南」下单购买，内容主要包括各种「高分论文的图表分析复现以及一些个性化图表的绘制」均包含数据+代码。购买会员文档后微信发小编订单号即邀请进新的会员交流群。
❞
「2024更新的绘图内容同时包含数据+代码+markdown注释文档+文档清单」
原图
复现结果
论文
❝https://www.nature.com/articles/s41467-024-45957-x
❞
library(tidyverse)
library(ggtext)
df <- read_tsv("data.xls") %>% rownames_to_column(var="id") %>%
pivot_longer(-id)
df$name <- factor(df$name,levels =df$name %>% unique())
p1 <- df %>% separate(col=name,into="type", sep="_",remove = F)
p1 %>% ggplot(aes(name,value,fill=type))+
stat_boxplot(geom="errorbar",width=0.2)+
geom_boxplot(outlier.shape = NA,key_glyph="rect")+
stat_summary(fun=mean,geom="point",col="white",shape=15,show.legend = F)+
geom_hline(yintercept = 0,linetype="3313",color="black",size=0.5)+
labs(y="(gC m<sup>-2</sup> ppm<sup>-1</sup>)")+
scale_y_continuous(limits = c(-10,10),position = "right")+
scale_fill_manual(values=c("#DD8D29","#74A089","#899DA4"))+
theme_test()+
theme(axis.text.x=element_blank(),
axis.title.x = element_blank(),
axis.text.y.right=element_text(color="black",size=11,margin = margin(l=8,"in")),
axis.title.y.right=element_markdown(size=10,color="black",angle = 90,face = "bold"),
axis.ticks.x = element_blank(),
axis.ticks.length.y.right = unit(-0.2,"cm"),
plot.margin = unit(c(0.8,0.8,0.8,0.8),unit="cm"),
legend.key.height = unit(0.4,"cm"),
legend.key.width = unit(1,"cm"),
legend.title=element_blank(),
legend.text=element_markdown(size=10,vjust=0.5,hjust=0.5),
legend.spacing.x = unit(0.03,"in"),
legend.direction = "horizontal",
legend.position = c(0.238,-0.03))
❝本节介绍到此结束，有需要学习数据可视化的朋友，欢迎到小编的「淘宝店铺」 「R语言数据分析指南」下单购买，内容主要包括各种「高分论文的图表分析复现以及一些个性化图表的绘制」均包含数据+代码。购买会员文档后微信发小编订单号即邀请进新的会员交流群。
❞