能否无需重建或修改geom图层为ggplot2动态添加美学映射？

嘿，我刚好知道怎么解决这个问题！你不用修改已经写好的geom_point图层就能动态添加或调整美学映射，这里有几个实用的方案，适配不同的需求场景：

方案1：全局追加映射（最简单的快速方法） #

如果你希望这个新的美学映射应用到所有图层上（或者你的图只有这一个geom图层），直接在已有的ggplot对象后面追加aes()即可，它会自动让所有geom图层继承这个新的映射：

library("ggplot2")
dat <- data.frame(A = c(0,1,2,5,4,3), B = c(4,1,3,2,0,5))

# 先创建原始的ggplot对象
p <- ggplot(data = dat) + geom_point(mapping = aes(x = A, y = B))

# 直接追加color映射，不用修改原来的geom_point
p <- p + aes(color = A > 3)

# 查看结果
p

方案2：修改特定图层的映射（精准控制） #

如果你只想给某一个特定的geom图层添加映射（比如图中有多个geom，不想影响其他图层），可以直接修改ggplot对象里对应图层的mapping属性，用modifyList()来合并原有映射和新映射：

library("ggplot2")
library("utils") # modifyList函数一般R默认已加载

dat <- data.frame(A = c(0,1,2,5,4,3), B = c(4,1,3,2,0,5))
p <- ggplot(data = dat) + geom_point(mapping = aes(x = A, y = B))

# 修改第一个图层（也就是我们的geom_point）的映射，添加color属性
p$layers[[1]]$mapping <- modifyList(p$layers[[1]]$mapping, aes(color = A > 3))

# 查看结果
p

这里p$layers[[1]]指向的是图中的第一个geom图层，如果你有多个图层，调整索引数字即可精准定位。

方案3：修改geom的默认映射（适合重复使用的场景） #

如果你需要多次给同类型的geom添加相同的映射，可以修改该geom的默认设置，这样之后所有新创建的该类型geom都会自动带上这个映射：

library("ggplot2")
dat <- data.frame(A = c(0,1,2,5,4,3), B = c(4,1,3,2,0,5))

# 设置point类geom的默认映射，添加color属性
update_geom_defaults("point", list(mapping = aes(color = A > 3)))

# 再创建原始图，会自动应用新的默认映射
p <- ggplot(data = dat) + geom_point(mapping = aes(x = A, y = B))
p

# 如果之后想重置默认设置，避免影响其他图，可以执行：
update_geom_defaults("point", list(mapping = aes()))

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