ggplot2优雅绘制半边箱线图

R语言数据分析指南

发布于 2024-04-28 14:06:12

990

发布于 2024-04-28 14:06:12

欢迎关注R语言数据分析指南

❝本节来回答读者的一个问题，如何半边箱线图主要通过「gghalves」包来实现对此感兴趣的读者可以查阅官方文档，数据为随意构建无实际意义，整个过程仅参考。希望对各位观众老爷能有所帮助。「数据代码已经整合上传到学习交流群」，购买过小编R数据可视化文档的朋友可在所加的交流群内获取下载，有需要的朋友可关注文末介绍加入交流群。 ❞

gghalves官方文档

❝https://erocoar.github.io/gghalves/ ❞

结果图

❝图形主要通过一边展示箱图一边通过散点来展示数据分布，并添加了组间显著性标记。 ❞

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

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

加载R包

library(tidyverse)
library(gghalves)
library(rstatix)
library(ggpubr)
library(ggsci)

查看加载R包版本

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()