如何在ggplot的geom_boxplot中仅显示每隔n个X轴刻度标签？

我明白你的痛点——手动设置离散X轴的标签不仅效率低，在刻度数量多的时候还容易出错。这里有个无需手动逐个指定的方法，用动态函数来自动控制保留每隔n个标签：

首先，我们可以定义一个标签处理函数，它会根据你设定的间隔n，自动保留对应位置的标签，其余标签设为空字符串。这样不管你的X轴有多少个刻度，只需要调整n的值就能轻松实现需求。

完整代码示例 #

library(ggplot2)
library(scales) # 用到pretty_breaks函数

# 示例数据
Lat <- c(rep(50.70,3), rep(51.82,3), rep(52.78,3), rep(56.51,3))
y <- c(seq(1,2, by=0.5), seq(1,3, by=1), seq(2,6,by=2), seq(1,5,by=2))
df <- as.data.frame(cbind(Lat, y))
df$Lat <- as.factor(df$Lat) # 确保Lat是因子类型（离散型X轴）

# 定义标签处理函数：每隔n个保留一个标签
keep_every_n_labels <- function(n) {
  function(labels) {
    # 逻辑：第1、1+n、1+2n...位置的标签保留，其余设为空
    ifelse(seq_along(labels) %% n == 1, labels, "")
  }
}

# 绘制箱线图，设置每隔2个保留一个标签（可修改n的值）
box_plot <- ggplot(df, aes(x=Lat, y=y))+ 
  geom_boxplot()+ 
  labs(x="Latitude")+ 
  scale_y_continuous(breaks = pretty_breaks(n=6)) + 
  scale_x_discrete(labels = keep_every_n_labels(n=2)) + # 这里指定间隔n
  theme_classic()

box_plot

代码说明 #

1. 标签处理函数：keep_every_n_labels(n)是一个闭包函数，它接受间隔参数n，返回一个用于处理刻度标签的函数。内部用seq_along(labels)获取每个标签的位置索引，通过%%取余判断是否保留该标签。
2. 灵活调整间隔：如果你想每隔3个保留一个标签，只需要把keep_every_n_labels(n=2)改成keep_every_n_labels(n=3)即可；如果想保留第1、4个标签（和你手动设置的效果一致），就用n=4。
3. 自定义保留逻辑：如果需要调整保留标签的位置（比如从第2个开始每隔n个保留），只需要修改ifelse里的条件，比如改成seq_along(labels) %% n == 2就行。

这样的方法完全不需要手动逐个指定标签，不管你的X轴有多少个刻度，都能高效、准确地实现需求。

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