r - 更改现有几何图形的颜色，没有分组

Question

这可能只是我的一个错误，不记得如何做到这一点。非少。想象一个场景，你有一个生成 ggplot 的函数。你没有分组，点都是黑色的。为简单起见，假设下面的图是返回的图。

library(ggplot2)
data(mtcars)
p <- ggplot(mtcars, aes(y = mpg, x = hp)) + 
      geom_point()

我现在如何更改 p 中点的颜色，而不修改生成绘图本身的函数。例如。将代码更改为 geom_point(col = "green") 将 not 是一个选项。

Answer 1

一个简单的方法是在事后添加一个虚拟的美学映射:

 p + aes(color = "forestgreen") + scale_color_identity(guide = guide_none())

一个更永久的替代方案，相当于返回并将 color = "forestgreen" 参数写回 geom_point 调用是:

p$layers[[1]]$aes_params <- list(colour = "forestgreen")