如何用ggplot2实现X轴非线性刻度自定义及图表适配？

1. 仅替换刻度标签（轴仍为线性） #

如果只是需要把原线性轴上的特定刻度位置替换成自定义标签，数据的视觉位置保持不变，直接使用scale_x_continuous的breaks和labels参数即可：

library(ggplot2)

example <- data.frame(a = 1:2000, b = rnorm(n = 2000))
ggplot(example, aes(a, b)) +
  geom_point() +
  scale_x_continuous(
    breaks = c(500, 1000, 1500),  # 指定要替换的原刻度位置
    labels = c("2", "20", "200")  # 对应替换的新标签
  )

2. 实现真正的非线性刻度（数据适配刻度变化） #

如果需要让X轴本身是非线性的（刻度间距视觉上非均匀），同时让数据点位置适配这个刻度变化，需要借助scales包自定义刻度转换函数：

library(ggplot2)
library(scales)

# 构造示例数据
example <- data.frame(a = 1:2000, b = rnorm(n = 2000))

# 定义原数据a到新刻度值的转换函数
# 对应a=500→2，a=1000→20，a=1500→200的映射关系
a_to_custom <- function(a) {
  2 * 10^((a / 500) - 1)
}

# 定义新刻度值到原数据a的逆函数（用于ggplot计算轴范围）
custom_to_a <- function(y) {
  500 * (log10(y / 2) + 1)
}

# 创建自定义转换规则
custom_trans <- trans_new(
  name = "custom_nonlinear",
  transform = a_to_custom,
  inverse = custom_to_a,
  breaks = c(2, 20, 200),  # 设置要显示的非线性刻度标签
  format = identity
)

# 绘制适配非线性刻度的图表
ggplot(example, aes(a, b)) +
  geom_point() +
  scale_x_continuous(trans = custom_trans)

说明 #

• 自定义转换函数的逻辑可根据实际需求调整，只需保证transform和inverse函数互为逆运算即可。
• 上述示例中，新刻度2、20、200对应原数据位置500、1000、1500，刻度间距在视觉上呈对数级增长（每段间距对应标签值10倍提升）。

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