如何仅指定单轴对ggplot图表进行局部放大？

针对你遇到的情况，这里提供两种无需手动指定ylim的解决方案：

方法一：手动计算适配的y轴范围（无需额外包） #

核心思路是找出所有与x放大边界相交的线段，计算交点的y值，再结合x范围内点的y值，自动生成y轴范围：

library(tidyverse)

df <- tibble(x = c(0, 2, 5),
             y = c(1000, 1, 1))

# 定义要放大的x左边界
x_min <- 1.5

# 计算跨越x边界的线段交点y值
crossing_segments <- df %>%
  mutate(next_x = lead(x), next_y = lead(y)) %>%
  filter(!is.na(next_x), (x < x_min & next_x >= x_min)) %>%
  mutate(
    slope = (next_y - y)/(next_x - x),
    intersect_y = y + slope*(x_min - x)
  )

# 收集所有需要纳入y轴范围的数值
all_y <- c(
  df %>% filter(x >= x_min) %>% pull(y),
  crossing_segments %>% pull(intersect_y)
)

# 自动生成y轴范围
y_lim <- range(all_y)

# 绘图，保留完整线段同时适配y轴
df %>% 
  ggplot(aes(x,y)) + 
  geom_line() +
  coord_cartesian(xlim = c(x_min, NA), ylim = y_lim)

方法二：使用ggforce包快速实现（简洁高效） #

ggforce的facet_zoom功能专门用于局部放大，会自动调整放大区域的轴范围，且无需手动计算：

library(tidyverse)
library(ggforce)

df <- tibble(x = c(0, 2, 5),
             y = c(1000, 1, 1))

# 仅显示放大区域，自动适配y轴
df %>% 
  ggplot(aes(x,y)) + 
  geom_line() +
  facet_zoom(x = x >= 1.5, show.original = FALSE)

如果需要同时显示完整图和放大图，去掉show.original = FALSE即可。

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