如何阻止ggplot2覆盖已设置的参数（以scale_y_continuous为例）

问题场景 #

使用ggplot2时，添加新的scale函数会覆盖之前设置的参数。以scale_y_continuous()为例：

首先创建带自定义breaks的图表：

df <- data.frame(sex= factor(sample(c("male", "female"), 100, replace= TRUE)))
library(ggplot2)
my_plot <- ggplot(df, aes(sex)) +
  geom_bar() +
  scale_y_continuous(breaks= 1:nrow(df))
my_plot

此时图表的y轴刻度符合预期。

当从同事处拿到my_plot对象，想要调整y轴起始为0时，执行以下代码：

my_plot2 <- my_plot +
  scale_y_continuous(expand= expansion(mult= c(0, 0.1)))
my_plot2

问题出现：之前设置的自定义breaks被重置为默认值，不再是步长为1的刻度。

现有方案的局限性 #

直接修改my_plot$scales$scales[[1]]$expand的方法不可靠，因为它依赖于scale的定义顺序：

• 如果先定义x轴再定义y轴，修改[[1]]会改动x轴而非y轴
• 如果未手动设置过scale，执行该代码会报错
  由于无法获知传入plot对象的scale定义顺序，这个方案不具备通用性。

通用解决方案 #

方法1：手动提取原参数并合并 #

先获取原y轴scale的参数，再在新的scale函数中保留这些参数并添加新设置：

# 获取原y轴的breaks参数
original_breaks <- my_plot$scales$get_scales("y")$breaks

# 构建新的scale，保留原breaks并添加expand设置
my_plot2 <- my_plot +
  scale_y_continuous(breaks = original_breaks, expand = expansion(mult = c(0, 0.1)))

方法2：编写通用更新函数 #

如果需要频繁修改不同scale的参数，可以编写一个通用函数来自动合并原参数与新参数，无需关心scale顺序：

update_scale <- function(plot, scale_type, ...) {
  # 获取目标scale对象
  target_scale <- plot$scales$get_scales(scale_type)
  
  # 若未手动设置过scale，直接创建新scale
  if (is.null(target_scale)) {
    scale_func <- get(paste0("scale_", scale_type, "_continuous"))
    return(plot + scale_func(...))
  }
  
  # 提取原scale的参数，合并新参数（新参数优先级更高）
  original_args <- target_scale$call_args
  new_args <- modifyList(original_args, list(...))
  
  # 生成并添加新的scale
  scale_func <- get(paste0("scale_", scale_type, "_continuous"))
  plot + do.call(scale_func, new_args)
}

# 使用示例：更新y轴的expand参数，自动保留原breaks
my_plot2 <- update_scale(my_plot, "y", expand = expansion(mult = c(0, 0.1)))

这个函数会自动定位到指定类型的scale（如"y"），合并原参数与新参数，避免覆盖未修改的设置。

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