ggplot2函数递归缩放问题：修改点大小意外覆盖原始绘图对象

问题根源 #

你遇到的问题本质是：ggplot2对象属于复杂列表结构，R中对列表的赋值默认是引用传递——函数内的gg_plot其实是原始对象的内存引用，修改它的嵌套参数（比如layers[[1]]$aes_params$size）会直接改动原始对象的内容，而非仅修改局部副本。

解决方案：深拷贝ggplot对象 #

要生成完全独立的新对象，必须对传入的ggplot对象做深拷贝，确保函数内操作的是与原对象无内存关联的副本。推荐用rlang::duplicate()实现深拷贝，它会复制所有嵌套元素，彻底切断与原对象的引用关系。

修正后的代码 #

library(ggplot2)
library(rlang)

# 构建原始绘图对象
test_plot = ggplot(mtcars) +
  geom_point(aes(y = mpg, x = hp), col = "black")

# 修正后的调整点大小函数
adjust_point_size <- function(gg_plot, element_size_adjust = 1) {
  # 深拷贝创建独立副本，shallow=FALSE确保嵌套元素也被复制
  gg_plot_copy <- duplicate(gg_plot, shallow = FALSE)
  
  # 获取当前点的默认大小
  build_data <- ggplot_build(gg_plot_copy)$data
  point_size <- unique(build_data[[1]]$size)
  
  # 修改副本的点大小参数（仅影响副本）
  gg_plot_copy$layers[[1]]$aes_params$size <- point_size * element_size_adjust
  
  # 返回修改后的新对象
  gg_plot_copy
}

测试验证 #

# 创建放大2倍的新绘图对象
scaled_plot <- adjust_point_size(test_plot, 2)

# 查看原始对象的点大小（仍为默认值1）
ggplot_build(test_plot)$data[[1]]$size[1]
# 查看新对象的点大小（已变为2）
ggplot_build(scaled_plot)$data[[1]]$size[1]

# 再次放大新对象，得到4倍大小的对象
double_scaled_plot <- adjust_point_size(scaled_plot, 2)
ggplot_build(double_scaled_plot)$data[[1]]$size[1]
# 原始对象依然保持默认大小
ggplot_build(test_plot)$data[[1]]$size[1]

替代方案（无需额外包） #

如果不想依赖rlang包，可以使用deepcopy包的deepcopy()函数，效果完全一致：

library(deepcopy)

adjust_point_size <- function(gg_plot, element_size_adjust = 1) {
  gg_plot_copy <- deepcopy(gg_plot)
  # 后续步骤与上述函数一致
  build_data <- ggplot_build(gg_plot_copy)$data
  point_size <- unique(build_data[[1]]$size)
  gg_plot_copy$layers[[1]]$aes_params$size <- point_size * element_size_adjust
  gg_plot_copy
}

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