?本节来回答读者的一个问题,如何半边箱线图主要通过「gghalves」包来实现对此感兴趣的读者可以查阅官方文档,数据为随意构建无实际意义,整个过程仅参考。希望对各位观众老爷能有所帮助。「数据代码已经整合上传到学习交流群」,购买过小编R数据可视化文档的朋友可在所加的交流群内获取下载,有需要的朋友可关注文末介绍加入交流群。 ?
?https://erocoar.github.io/gghalves/ ?
?图形主要通过一边展示箱图一边通过散点来展示数据分布,并添加了组间显著性标记。 ?
?有需要学习R数据可视化的读者,欢迎购买小编的R数据可视化案例文档,「购买将自动获得2024年及以后更新的绘图文档代码,无需额外付费」。目前会员文档(2023+2024)「已经更新上传了150+案例文档」,每个案例都附有相应的数据和代码,并配有对应的注释文档,方便大家学习和参考。有需要的朋友欢迎到小编的「淘宝店铺-R语言数据分析指南」下单购买。 ?
library(tidyverse)
library(gghalves)
library(rstatix)
library(ggpubr)
library(ggsci)
sessionInfo()
df <- read_tsv("data.xls") %>%
mutate(year=as.character(year))
df %>%
ggplot(aes(year,lifeExp)) +
geom_half_boxplot(aes(fill=year),color="black",
side="l",errorbar.draw = T,
outlier.shape = NA, width=0.8) +
geom_half_point(aes(color=year),
side = "r",
transformation_params = list(height = 0,width = 0.001,seed = 2))+
facet_wrap(.~continent,nrow=1)+
scale_y_continuous(limits = c(0,95),breaks = seq(0,95,20))+
scale_fill_npg()+
scale_color_npg()+
labs(x=NULL,y=NULL)+
theme(plot.margin=unit(c(0.5,0.5,0.5,0.5),units=,"cm"),
panel.background = element_blank(),
plot.background = element_blank(),
strip.text = element_text(size=12),
axis.line = element_line(color = "black",size = 0.4),
axis.text.y = element_text(color="black",size=10),
axis.text.x = element_text(margin = margin(t = 2),color="black",size=10),
legend.position = "none",
panel.spacing = unit(0,"lines"))+
coord_cartesian()