

NC图表复现-ggplot2绘制漂亮阴影图

R语言数据分析指南

2023-02-25

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

❝
本节来复现NC上的一张图，绘制带阴影的箱线图；整体看起来图形比较基础但是细节也是比较多的，下面来通过代码详细介绍一下，「数据+代码已经上传2023VIP群，加群的观众老爷请自行下载」
❞

2023-VIP购买方式

❝
有需要购买2023年文档的朋友欢迎到小编的「淘宝店铺」 「R语言数据分析指南」下单购买，微信发小编订单截图即可邀请进新的交流群，小编的文档为按年售卖，只包含当年度的「除系列课程外」的文档，有需要往年文档的朋友也可下单购买，需要了解更多信息的朋友欢迎交流咨询，「添加小编微信请备注，以提高沟通效率」
❞

论文原图

❝
Multiple pkd and piezo gene family members are required for atrioventricular valve formation
❞

淘宝店铺个性化绘图服务

❝
有需要找小编做个性化绘图的朋友欢关注「淘宝店铺(R语言数据分析指南)」 有需求者可咨询下单。
❞

加载R包

library(tidyverse)
library(readxl)
library(ggpattern)
library(ggsci)
library(ggthemes)
library(ggprism)

导入数据

df <- read.delim("data.xls",check.names = F) %>% 
  pivot_longer(-Nb) %>% left_join(.,read_excel("group.xlsx"),by="name",
                                  multiple = "all") %>% drop_na()

数据清洗

df$group <- factor(df$group,levels = df$group %>% unique())

数据可视化

df %>% ggplot(aes(group, value, fill = name), color = "black") +
  # 绘制箱线图及误差棒
  stat_boxplot(geom = "errorbar",
               position = position_dodge(width = 1),width = 0.2,
               color = "black",size = 0.5) +
  
  # 绘制带图案的箱线图
  geom_boxplot_pattern(aes(fill=name), # 指定填充颜色的变量名
                       size=0.2, # 箱线图的线条粗细
                       key_glyph=draw_key_rect, # 图例的形状
                       pattern='stripe', # 线条的样式
                       pattern_spacing = 0.01,# 线条之间的间距
                       pattern_density=0.01, # 线条的密度
                       pattern_angle=45, # 线条的角度
                       position=position_dodge(width=1), # 对齐方式
                       outlier.shape = NA)+ # 异常值的形状（NA表示不显示）
scale_fill_jco() + # 设置颜色映射 
  scale_y_continuous(expand = c(0, 0),   # 设置y轴范围和刻度
  limits = c(0, 100),breaks = seq(0, 100, 10),guide = "prism_minor") +
  labs(x = NULL, y = NULL) +  # 设置x轴和y轴标签
  # 设置主题样式
  theme(panel.grid.major.y = element_line(linetype = 3, color = "black"),  # 设置y轴主网格线的样式
        panel.grid.major.x = element_blank(),  # 去除x轴主网格线
        panel.grid.minor = element_blank(),   # 去除次要网格线
        panel.background = element_rect(color = "grey"),  # 设置面板背景色
        axis.text = element_text(color = "black", face = "bold", size = 10),  # 设置轴标签文本样式
        axis.line = element_line(color = "black", size = 0.8),  # 设置轴线样式
        axis.ticks = element_line(color = "black", size = 0.8),  # 设置刻度线样式
        axis.ticks.x = element_blank(),  # 去除x轴刻度线
        legend.title = element_blank(),  # 去除图例标题
        legend.key.height = unit(0.2, 'in')) +  # 设置图例高度
  # 设置图例样式
  guides(fill = guide_legend(override.aes = list(alpha = 1),
  nrow = 3, byrow = TRUE),  # 设置图例分为3行，并显示所有图例项
         keywidth = unit(5, units = "mm"))  # 设置图例项宽度

❝
整张图形看起来结构比较简单，纯粹的箱图+阴影，但是在图例及主题处需要调整颇多的细节，上方代码已经详细介绍了细节，喜欢的观众老爷欢迎分享转发。有学习需求者欢迎到小编「淘宝店铺 R语言数据分析指南」 购买小编2023年的VIP文档，已有不少朋友学以至用用到了论文当中，99也许能解决就你的很多问题,加小编微信请备注信息及来意，无需要请勿扰
❞