如何调整ggplot的x轴刻度比例以聚焦特定数值区间

要加宽X轴上-1e6 < x < 1e+6区间的显示比例、突出该区域的数据点，有两种成熟的实现方案，不需要手动拼接子图：

方案1：ggforce包分面缩放（最简便，推荐） #

ggforce是ggplot2生态常用的扩展包，其中的facet_zoom()函数可以直接实现指定轴区间的缩放展示，自动保留全量数据的上下文参考，不需要额外做复杂数据处理：

1. 安装加载依赖包

# 首次使用先运行安装
install.packages("ggforce")
library(ggplot2)
library(ggforce)

2. 在你原有绘图代码的末尾添加缩放分面层即可：

# 假设p是你已经生成的ggplot对象
p + facet_zoom(
  xlim = c(-1e6, 1e6),  # 指定X轴要放大的目标区间
  zoom.size = 1.5       # 调整放大区域占整图的比例，数值越大重点区域占比越高
)

参数说明：

• 该语法默认会将绘图面板拆分为上下两部分，上方是全量数据的完整视图，会用矩形框标记出你选中的放大区间；下方是放大后的重点区域视图，数据细节展示更清晰
• 如果不需要展示全量数据的缩略面板，可以搭配参数zoom.data = "focal"只显示放大后的区域
• 调整zoom.size的数值即可自由控制重点区间的显示占比，按需设置到观察舒适的程度即可

方案2：自定义分段坐标变换（单面板无分面） #

如果你不想使用分面形式，希望保持单绘图面板的结构，仅通过拉伸X轴重点区间的方式调整占比，可以通过scales包自定义非线性坐标变换实现：

library(scales)
# 构造X轴分段缩放变换函数
x_zoom_trans <- function(focus_range = c(-1e6, 1e6), stretch = 4) {
  # stretch参数控制重点区间的拉伸倍数，数值越大重点区间占比越宽
  trans_fun <- function(x) {
    flag_left <- x < focus_range[1]
    flag_mid <- x >= focus_range[1] & x <= focus_range[2]
    flag_right <- x > focus_range[2]
    
    x[flag_left] <- x[flag_left] / stretch
    x[flag_mid] <- focus_range[1]/stretch + (x[flag_mid] - focus_range[1])
    x[flag_right] <- focus_range[1]/stretch + diff(focus_range) + (x[flag_right] - focus_range[2])/stretch
    return(x)
  }
  inv_fun <- function(x) {
    left_edge <- focus_range[1]/stretch
    right_edge <- left_edge + diff(focus_range)
    flag_left <- x < left_edge
    flag_mid <- x >= left_edge & x <= right_edge
    flag_right <- x > right_edge
    
    x[flag_left] <- x[flag_left] * stretch
    x[flag_mid] <- focus_range[1] + (x[flag_mid] - left_edge)
    x[flag_right] <- focus_range[2] + (x[flag_right] - right_edge) * stretch
    return(x)
  }
  trans_new("x_axis_zoom", trans_fun, inv_fun)
}

# 绘图时应用自定义变换即可
p + scale_x_continuous(trans = x_zoom_trans(focus_range = c(-1e6, 1e6), stretch = 5))

该方法会自动匹配X轴的真实刻度值，不会因为轴拉伸出现数值标注错误，稳定性远高于手动裁切数据后拼接子图的方案。

不建议手动把X轴拆成多段再用拼贴包组装子图的方式实现，很容易出现轴刻度对齐错误、图例重复的问题，后续调整维护成本很高。

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