修改ggplot对象时已赋值变量同步变更的问题求助

核心逻辑：R的写时复制机制 + ggplot对象的嵌套引用特性 #

• R默认的赋值<-采用**写时复制（copy-on-modify）**逻辑：你执行y1 <- x1时，两个变量最初指向内存中同一个ggplot对象，不会立即生成完整副本，只有当你对整个对象做全量修改时才会触发复制、生成独立的新对象。
• 你本次是直接修改ggplot对象的深层嵌套子元素layers[[1]][["data"]][["xintercept"]]，ggplot的图层结构内部存在引用类型的存储逻辑（类似环境变量的按引用传递规则），这种局部修改不会触发R的写时复制机制，所以x1和y1始终指向同一个内存对象，修改x1的嵌套属性时，y1对应的内容也会同步变化。

解决方法 #

如果需要生成独立的ggplot副本，避免修改相互影响，可以用ggplot2自带的ggplot_clone()函数做深拷贝，调整代码如下即可达到预期效果：

library(ggplot2)
x1 <- ggplot() + geom_vline(xintercept = 10)
y1 <- ggplot_clone(x1) # 深拷贝生成完全独立的y1对象

x1[["layers"]][[1]][["data"]][["xintercept"]] <- 20
y2 <- x1

# 此时y1输出x轴截距为10的垂线，x1、y2输出x轴截距为20的垂线

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