使用facet_wrap的ggplot能否获取轴断点？如何获取各分面断点长度？

1. 用facet_wrap的ggplot能否实现轴断点？ #

当然可以！ggplot本身没有原生支持轴断裂的功能，但有一个专门的扩展包ggbreak可以完美实现，它完全兼容facet_wrap（以及facet_grid）的分面场景，能轻松给每个分面设置独立的轴断点。

举个贴合你数据场景的例子：

library(tidyverse)
library(ggbreak)

# 构造模拟数据（匹配你提到的exp(rnorm)格式）
set.seed(42)
df <- tibble(
  group = rep(c("Group1", "Group2", "Group3"), each = 50),
  vary_1 = c(exp(rnorm(50)), exp(rnorm(50, mean = 2)), exp(rnorm(50, mean = 4)))
)

# 带轴断点的分面图
ggplot(df, aes(x = group, y = vary_1)) +
  geom_boxplot() +
  facet_wrap(~group, scales = "free_y") +
  # 给需要断裂的分面设置断点，scales="free"保证每个分面轴尺度独立
  scale_y_break(c(5, 15), scales = "free") +
  theme_bw()

你可以根据每个分面的数据分布，灵活调整断点的位置和数量，完全适配facet_wrap的自由尺度设置。

2. ggplot中类似axTicks的函数：获取分面断点长度并自定义标签 #

ggplot没有直接对应base R中axTicks的函数，但我们可以通过ggplot_build()提取绘图对象的底层刻度信息，从而自动获取每个分面的断点数量，再用这个信息自定义标签。

步骤1：先创建你的基础ggplot对象 #

# 基于上面的模拟数据创建基础图
p <- ggplot(df, aes(x = group, y = vary_1)) +
  geom_boxplot() +
  facet_wrap(~group, scales = "free_y") +
  theme_bw()

步骤2：编写函数提取分面断点长度 #

我们可以写一个轻量函数，从构建后的绘图对象中提取指定轴的断点数量：

get_facet_break_length <- function(plot_obj, axis = "y") {
  # 解析ggplot对象，获取底层面板参数
  plot_build <- ggplot_build(plot_obj)
  # 遍历每个面板，提取对应轴的断点并统计长度
  break_lengths <- lapply(plot_build$layout$panel_params, function(panel) {
    if (axis == "y") {
      length(panel$y$breaks)
    } else {
      length(panel$x$breaks)
    }
  })
  # 返回命名向量，对应每个分面的断点数量
  names(break_lengths) <- unique(df$group)
  unlist(break_lengths)
}

# 获取每个分面的y轴断点数量
break_counts <- get_facet_break_length(p, axis = "y")

步骤3：用断点数量自定义轴/分面标签 #

比如我们想把分面标题改成包含断点数量的形式：

# 构建自定义标签映射
custom_facet_labels <- set_names(
  paste0("组：", names(break_counts), "（断点数：", break_counts, "）"),
  names(break_counts)
)

# 更新绘图的分面标签
p +
  facet_wrap(~group, scales = "free_y",
             labeller = labeller(group = ~custom_facet_labels[.x]))

如果你想自定义轴刻度标签而非分面标题，也可以结合scale_y_continuous()的labels参数，配合提取到的断点信息生成对应标签，完全不需要手动统计断点数量。

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