如何为ggplot分面图的breaks函数传递额外参数并按组计算刻度

我正在编写一个R函数，输入包含自变量、因变量和分组变量的数据框，使用facet_wrap将每个分组单独绘图。目前有两个核心需求：

• 不同分组的变量范围差异明显，需要为每个分组设置独立的x、y轴刻度；
• 自定义的刻度生成函数需要接收分面布局的总图数（nplots参数），以便随着页面中图的数量增加，自动减少刻度数量，避免刻度过于密集。

当前遇到的困境：

• 若向scale_x_continuous传递一个仅接收数据参数的函数，虽然能按分组生成合适的刻度，但无法传入nplots参数，当分面数量增多时刻度会过于密集；
• 若直接传递带nplots参数的函数调用（如f(x = NewX, nplots = 2)），则无法按分组单独计算刻度，所有分面会共用一套基于全局数据生成的刻度，不符合需求。

想请教：有没有办法让刻度函数既对单个分组生效，又能传递额外的nplots参数？

示例代码 #

library(ggplot2)
# 刻度生成函数
f <- function(x, nplots = 1){
  seq(floor(min(x)), ceiling(max(x)), nplots)
}
# 构造测试数据
set.seed(225)
NewX1 <- seq(1, 10, 1)
NewX2 <- seq(2, 20, 2)
NewX <- append(NewX1, NewX2)

NewY1 <- rnorm(10, 10, 1)
NewY2 <- rnorm(10, 20, 1)
NewY <- append(NewY1, NewY2)

NewGroupvar1 <- rep("A", 10) 
NewGroupvar2 <- rep("B", 10)
NewGroupvar <- append(NewGroupvar1, NewGroupvar2)

NewData <- data.frame(NewX, NewY, NewGroupvar)

两种尝试的效果 #

尝试1：按分组生成刻度，但无法传入nplots #

ggplot(data = NewData, mapping = aes(x = NewX, y = NewY)) +
  geom_point() +
  scale_x_continuous(breaks = f, expand = c(0, 0)) +
  facet_wrap(~NewGroupvar, nrow = 1, ncol = 2, scales = 'free')

效果：每个分组会基于自身数据生成刻度，但nplots默认值为1，当分面数量增加时，刻度会变得过于密集。

尝试2：传入nplots，但不按分组计算刻度 #

ggplot(data = NewData, mapping = aes(x = NewX, y = NewY)) +
  geom_point() +
  scale_x_continuous(breaks = f(x = NewX, nplots = 2), expand = c(0, 0)) +
  facet_wrap(~NewGroupvar, nrow = 1, ncol = 2, scales = 'free')

效果：传入了nplots=2，但刻度是基于整个数据集的NewX计算的，分组A的刻度范围不符合自身数据，无法满足需求。

解决方案 #

方法1：使用函数工厂（闭包） #

创建一个"函数工厂"，先传入nplots参数，返回一个仅接收x的函数，这样ggplot在处理每个分面时，会自动将当前分面的x数据传入这个返回的函数，既实现按分组计算刻度，又能传递额外参数。

# 定义函数工厂
f_factory <- function(nplots = 1) {
  function(x) {
    seq(floor(min(x)), ceiling(max(x)), by = nplots)
  }
}

# 绘图调用
ggplot(data = NewData, mapping = aes(x = NewX, y = NewY)) +
  geom_point() +
  scale_x_continuous(breaks = f_factory(nplots = 2),  # 传入nplots参数
                     expand = c(0, 0)) +
  facet_wrap(~NewGroupvar, nrow = 1, ncol = 2, scales = 'free')

方法2：使用purrr::partial进行参数部分应用 #

借助purrr包的partial函数，固定nplots参数，生成一个仅等待x传入的新函数，同样能实现需求：

library(purrr)

ggplot(data = NewData, mapping = aes(x = NewX, y = NewY)) +
  geom_point() +
  scale_x_continuous(breaks = partial(f, nplots = 2),
                     expand = c(0, 0)) +
  facet_wrap(~NewGroupvar, nrow = 1, ncol = 2, scales = 'free')

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