ggplot2离散轴按分组设置主刻度与唯一标签的实现问题

我有一个包含142条记录的数据集（71个样本，每个样本对应2个观测值），样本来自不同来源（对应数据框中的Mill字段，为因子类型）。想用ggplot2绘图时按Mill分组设置主刻度线、主刻度标签，每组仅显示一次标签提升可读性，但尝试多种方法失败：

• 使用scale_x_discrete设置minor_breaks时提示“unused argument”错误；
• 使用scale_x_continuous时，因数据为离散型导致x轴消失；
• 参考相关示例转换因子/水平也无效果。

当前代码：

pH.plot<- ggplot(pH.1, aes(y=pH.1$pH) )  +
  #geom_histogram()+
  geom_point(aes(x=Sample), size=2) +
  scale_x_discrete(breaks=pH.Kond.Alk.1$Mill, labels = pH.Kond.Alk.1$Mill )+
  theme(
    axis.title.x=element_blank(),
    axis.title.y=element_blank(),
    legend.title = element_blank(), 
    axis.text.x = element_text(angle = 90) )

数据集结构：

str(pH.Kond.Alk.1)
tibble [142 × 5] (S3: tbl_df/tbl/data.frame)
 $ Sample  : chr [1:142] "Kx V17" "Mu V17" "Ob V17" "Vä V17" ...
 $ Mill    : Factor w/ 16 levels "Aspa","Billingsfors",..: 8 9 10 14 16 7 13 6 15 4 ...
 $ Halfyear: Factor w/ 5 levels "S17","F17","S18",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ LS      : Factor w/ 2 levels "L/S 2","L/S 10": 1 1 1 1 1 1 1 1 1 1 ...
 $ pH      : num [1:142] 12.67 11.76 9.73 13.2 10.68 ...

当前绘图x轴标签重复，需要实现按Mill分组的主刻度分隔，每组仅显示一次标签。

方法1：同一轴上实现分组刻度与分隔 #

核心思路是先让同组样本在x轴上连续排列，再自定义刻度为每组的起始样本，标签替换为Mill名称，最后添加分组分隔线增强视觉效果。

步骤1：数据排序与因子转换

确保同一Mill的Sample在x轴上相邻：

library(dplyr)

# 按Mill排序数据框
pH.Kond.Alk.1 <- pH.Kond.Alk.1 %>% 
  arrange(Mill)

# 将Sample转为因子，顺序沿用排序后的结果
pH.Kond.Alk.1$Sample <- factor(pH.Kond.Alk.1$Sample, levels = unique(pH.Kond.Alk.1$Sample))

步骤2：自定义x轴刻度与标签

提取每个Mill对应的第一个Sample作为刻度断点，标签替换为Mill名称：

# 获取每组的第一个Sample作为刻度断点
mill_breaks <- pH.Kond.Alk.1 %>% 
  group_by(Mill) %>% 
  slice(1) %>% 
  pull(Sample)

# 获取对应的Mill名称作为刻度标签
mill_labels <- pH.Kond.Alk.1 %>% 
  group_by(Mill) %>% 
  slice(1) %>% 
  pull(Mill)

步骤3：计算分组分隔线位置

在每组样本的边界添加竖线，离散x轴的位置为1、2、3...，分隔线需放在两组中间：

group_positions <- pH.Kond.Alk.1 %>% 
  group_by(Mill) %>% 
  summarise(last_pos = which(levels(Sample) == last(Sample))) %>% 
  pull(last_pos) + 0.5

完整绘图代码

library(ggplot2)

pH.plot <- ggplot(pH.Kond.Alk.1, aes(x = Sample, y = pH)) +
  geom_point(size = 2) +
  # 设置x轴刻度与标签
  scale_x_discrete(breaks = mill_breaks, labels = mill_labels) +
  # 添加分组分隔竖线
  geom_vline(xintercept = group_positions, color = "gray50", linetype = "dashed") +
  theme(
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    legend.title = element_blank(),
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  )

print(pH.plot)

方法2：使用分面（Facet）实现分组隔离 #

如果不需要在同一x轴展示所有样本，分面是更简洁的方案，自动实现分组隔离：

pH.plot <- ggplot(pH.Kond.Alk.1, aes(x = Sample, y = pH)) +
  geom_point(size = 2) +
  # 按Mill分面，x轴刻度仅显示当前分面的样本
  facet_wrap(~Mill, scales = "free_x") +
  theme(
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    legend.title = element_blank(),
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)
  )

print(pH.plot)

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