如何在ggplot2中设置Y轴标签仅显示无重复整数？

问题原因 #

你的代码中Y轴数据仅包含整数1和2，使用scale_y_continuous(labels = scales::label_comma(accuracy = 1))时，ggplot默认的刻度生成逻辑可能会重复输出相同整数标签，这是因为默认刻度算法会生成覆盖数据范围的多个刻度点，即便部分点对应相同整数。

通用解决方案 #

方案1：基于数据动态生成唯一整数刻度 #

直接提取数据中Y值的唯一整数作为刻度，从根源避免重复：

library(ggplot2)
library(scales)

df = data.frame(n = as.integer(c(2, 1)), date = as.Date(c("2015-01-01", "2020-01-01")))

# 获取排序后的唯一整数Y值
unique_int_ys <- sort(unique(df$n))

ggplot(df, aes(x = date, y = n)) +
  geom_line() +
  scale_y_continuous(
    breaks = unique_int_ys,  # 指定刻度位置为唯一整数
    labels = unique_int_ys,  # 刻度标签对应整数
    limits = range(unique_int_ys)  # 可选：让Y轴范围刚好匹配数据
  )

方案2：用integer_breaks自动生成无重复整数刻度 #

借助scales包的integer_breaks函数，自动生成适配数据范围的唯一整数刻度，通用性更强：

ggplot(df, aes(x = date, y = n)) +
  geom_line() +
  scale_y_continuous(
    breaks = integer_breaks(),  # 仅生成整数刻度点
    labels = label_number(accuracy = 1)  # 确保标签为整数格式
  )

方案3：自定义标签函数过滤重复值 #

如果需要保留默认的刻度生成逻辑，仅过滤重复的整数标签：

ggplot(df, aes(x = date, y = n)) +
  geom_line() +
  scale_y_continuous(
    labels = function(x) {
      # 提取所有刻度对应的唯一整数
      unique_vals <- unique(round(x))
      # 仅保留属于唯一整数集合的标签，其余置空
      sapply(x, function(val) if(round(val) %in% unique_vals) as.character(round(val)) else "")
    },
    breaks = pretty_breaks()  # 使用默认刻度生成规则
  )

效果说明 #

三种方案都能实现Y轴标签仅显示整数且无重复的需求：

• 方案1适合数据范围固定的场景，精准匹配现有数据；
• 方案2是最通用的方式，适配各种整数数据的可视化场景；
• 方案3适合需要保留默认刻度分布，仅优化标签显示的情况。

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