如何在ggplot2中为离散X轴的分组箱线图偏移刻度与标签

要实现把刻度放在分组箱线图之间以表示小时区间的效果，核心是将x轴从因子类型转换为连续数值，通过偏移箱线组的位置，让刻度落在相邻组的中间。具体步骤如下：

1. 调整数据的x轴位置
   将原有的hour因子转换为连续数值，并偏移0.5，让每个小时的分组箱线组（A/B）的中心落在半整数位置（如0.5、1.5...23.5）：

   dat0$x_pos <- as.numeric(dat0$hour) - 0.5
   

2. 绘制调整后的箱线图
   使用新的x_pos作为x轴变量，同时自定义x轴的刻度位置和范围，让刻度落在整数点（1-24），正好处于相邻箱线组之间：

   ggplot(dat0, aes(x = x_pos)) +
     theme(
       legend.position="top",
       legend.title = element_blank(),
       panel.grid.major = element_blank()
     ) +
     geom_boxplot(
       aes(y = q50,
           fill = factor(group, levels = c('A', 'B')),
           ymin = q05, lower = q25, middle = q50, upper = q75, ymax = q95),
       stat = "identity",
       width = 0.8,
       position = position_dodge2(width = 0.8)  # 调整箱线间距，避免重叠
     ) +
     scale_x_continuous(
       breaks = 1:24,  # 刻度位置设置在1到24的整数点
       labels = 1:24,  # 刻度标签显示1到24
       limits = c(0, 24),  # x轴范围覆盖0到24，适配所有组
       expand = c(0, 0)  # 移除默认的轴边距，让刻度精准对齐组间
     ) +
     xlab("小时区间")  # 可选：修改x轴标题，明确表示区间含义
   

效果说明 #

• 每个小时的A/B箱线组会被放置在0.5-1.5、1.5-2.5等区间内
• 刻度n正好位于第n-1小时组和第n小时组之间，代表n-1到n的小时区间结束位置，完全匹配期望效果

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