如何在ggplot中设置刻度标记间的自定义非等距间距？

要实现你描述的非均匀刻度间距，核心是通过scales::trans_new()创建自定义坐标变换函数，定义数据值到绘图坐标的映射逻辑，同时实现坐标到数据的反向映射（用于交互或坐标转换）。

步骤1：明确刻度与坐标的映射关系 #

先把你需要的刻度和对应的绘图坐标位置对应起来（这里假设坐标范围为0-5，可根据实际需求调整比例）：

• 数据值0 → 坐标位置0
• 数据值1 → 坐标位置2（0-1的坐标间距为2）
• 数据值2 → 坐标位置3（1-2的坐标间距为1，是前一段的1/2）
• 数据值5 → 坐标位置5（2-5的坐标间距为2，和0-1一致）

步骤2：编写变换函数 #

基于上述映射，编写分段的正向（数据→坐标）和反向（坐标→数据）函数：

library(scales)
library(ggplot2)

# 创建自定义坐标变换
custom_y_trans <- trans_new(
  name = "custom_y",
  forward = function(x) {
    dplyr::case_when(
      x <= 1 ~ 2 * x,
      x > 1 & x <= 2 ~ 2 + (x - 1) * 1,
      x > 2 ~ 3 + (x - 2) * (2/3)  # 数据每增加3，坐标对应增加2
    )
  },
  inverse = function(y) {
    dplyr::case_when(
      y <= 2 ~ y / 2,
      y > 2 & y <= 3 ~ 1 + (y - 2) * 1,
      y > 3 ~ 2 + (y - 3) * (3/2)
    )
  },
  breaks = c(0, 1, 2, 5)  # 指定目标刻度
)

步骤3：在ggplot中应用变换 #

用scale_y_continuous()指定这个自定义变换，即可得到目标刻度间距效果：

# 示例测试数据
test_df <- data.frame(
  x = 1:4,
  y = c(0, 1, 2, 5)
)

ggplot(test_df, aes(x, y)) +
  geom_point(size = 3) +
  scale_y_continuous(trans = custom_y_trans, breaks = c(0,1,2,5)) +
  theme_bw()

注意事项 #

• 若需要调整刻度范围或间距比例，只需修改forward和inverse中的分段逻辑即可
• 必须保证反向函数是正向函数的严格逆运算，否则会出现坐标转换错误
• 如需添加更多刻度，在breaks参数中补充后，同步调整变换函数的分段规则即可

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