使用scale_y_continuous的expansion时设置轴两端刻度标签并函数化labels

核心思路 #

要实现轴两端显示刻度标签且轴不超出标签范围，需要基于数据极值自动计算轴限和刻度，同时将标签处理函数通用化以适配任意变量。

1. 自定义函数自动计算轴限与刻度 #

这个函数会根据输入的数值变量，生成包含极值的刻度序列，并设置对应的轴限，确保两端刻度完整显示：

get_axis_params <- function(values) {
  # 获取数据的正负极值
  val_min <- min(values)
  val_max <- max(values)
  # 计算刻度步长（可根据需求调整分割数量）
  step_size <- ceiling(max(abs(val_min), abs(val_max)) / 5)
  # 生成覆盖极值的刻度序列
  axis_breaks <- seq(floor(val_min / step_size) * step_size, 
                     ceiling(val_max / step_size) * step_size, 
                     by = step_size)
  # 轴限设为刻度的两端，避免轴过度延伸
  axis_limits <- range(axis_breaks)
  list(limits = axis_limits, breaks = axis_breaks)
}

2. 通用化标签格式化函数 #

labels参数使用匿名函数，对任意输入数值取绝对值并添加百分号，适配所有数值型变量：

labels_func <- function(x) paste0(abs(x), "%")

完整代码示例 #

library(ggplot2)
library(dplyr)
library(forcats)

# 构造数据
x <- LETTERS[1:11]
y <- c(9, 4, 6, 8, 5, 7, -12, -4, -6, -8, -5)
z <- seq(-1, 1, by = 0.2)

dat <- data.frame(x, y, z) |> 
  mutate(just_text = ifelse(z > 0, 1, -0.2))

# 计算y轴的参数（换成dat$z即可适配z变量）
axis_params <- get_axis_params(dat$y)

# 绘图
dat %>%
  ggplot(aes(fct_reorder(x, y, .desc = T), y)) +
  geom_col() +
  geom_text(aes(label = paste0(abs(y), " ", "abcdef"), hjust = just_text)) +
  coord_flip() +
  scale_y_continuous(
    labels = labels_func,
    limits = axis_params$limits,
    breaks = axis_params$breaks,
    # 极小扩展量，保证轴不超出标签范围，可根据标签长度微调
    expand = expansion(add = c(0.3, 0.3))
  ) +
  theme(
    axis.ticks.y.left = element_blank(),
    axis.line.x = element_line(color = "black")
  )

关键说明 #

• get_axis_params函数：自动适配数据极值生成刻度，确保轴两端都有刻度标签，轴限严格贴合刻度范围。
• expand参数：设置极小的扩展值（如0.3），避免轴过度延伸超出标签，可根据标签实际长度调整。
• 通用适配：如果需要切换到z变量，只需将get_axis_params(dat$y)改为get_axis_params(dat$z)，同时把ggplot的aes中y替换为z即可，标签函数无需修改。

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