如何在分组前后对比箱线图X轴离散组间加刻度并简化轴标记？

我明白你的需求啦——用ggpubr的ggboxplot做带分组的前后对比箱线图，已经搞定了基本结构，现在要把X轴的4个标签（比如yes:before、yes:after这类）简化成只显示yes和no，同时在分组之间加上清晰的刻度分隔。之前用ggpaired达不到分组箱线的效果，确实得换个思路，我给你整理了完整的解决方案，用虚拟数据演示：

第一步：构造完整的虚拟数据 #

先把你没写完的代码补全，方便后续测试：

library(tidyverse)
library(ggpubr)

# 生成带分组、时间、数值的虚拟数据
set.seed(123)
df <- tibble(
  id = rep(1:50, each = 2),          # 样本ID（模拟配对）
  group = rep(c("yes", "no"), each = 50), # 分组标记
  time = rep(c("before", "after"), 50),   # 前后时间点
  value = c(rnorm(50, 20, 3), rnorm(50, 25, 3),
            rnorm(50, 18, 2), rnorm(50, 22, 2))
)

第二步：生成目标样式的图表 #

核心思路是把分组（yes/no）作为X轴变量，前后时间点（before/after）作为颜色区分变量，用position_dodge让同一分组下的两个箱线图并排，这样X轴自然就只有yes和no，再调整刻度和主题：

# 绘制最终的分组前后对比箱线图
final_plot <- ggboxplot(
  df,
  x = "group",        # X轴用分组（yes/no）
  y = "value",        # Y轴用数值
  color = "time",     # 用颜色区分before/after
  palette = "jco",    # 选个好看的配色
  add = "jitter",     # 添加散点展示原始数据
  position = position_dodge(width = 0.8) # 让同一分组的两个箱线图并排
) +
  theme_bw() +
  # 明确指定X轴的刻度和标签，只保留yes/no
  scale_x_discrete(breaks = c("yes", "no"), labels = c("yes", "no")) +
  theme(
    axis.text.x = element_text(size = 12),
    axis.title.x = element_text(size = 14),
    # 强化X轴刻度，让分组分隔更明显
    axis.ticks.x = element_line(color = "black", size = 1),
    axis.ticks.length.x = unit(6, "pt"),
    # 添加分组之间的虚线分隔，视觉上更清晰
    panel.grid.major.x = element_line(color = "gray80", linetype = "dashed")
  ) +
  labs(x = "Group", y = "Measurement Value", color = "Time Point")

final_plot

关键逻辑说明 #

1. 为什么不用ggpaired：ggpaired主打配对样本的连线展示，更适合突出单个样本的前后变化，但要保留箱线图的分布呈现，用ggboxplot配合position_dodge的方式更适配你的需求。
2. X轴简化的核心：把X轴变量从group:time（会生成4个组合标签）改成单独的group，让时间点用颜色区分，这样X轴自动只显示分组名称。
3. 分组刻度的添加：通过axis.ticks.x强化刻度样式，再加上panel.grid.major.x的虚线，让yes和no两个分组的边界更清晰。

内容的提问来源于stack exchange，提问作者Venca