r - 更改给定绘图中未映射的几何颜色

Question

假设我有一个不受我控制的函数，它返回一个 ggplot 对象，其中 geom 的颜色不是映射但直接分配:

library(ggplot2)
notMyOwnFunction <- function(...) {
    qplot(mpg, disp, data = mtcars, color = I("darkblue"))
}

如何更改颜色而不重写整个函数并用参数替换常量I("darkblue")？

Answer 1

您可以只更改文字值:

library(ggplot2)
gg <- qplot(mpg, disp, data = mtcars, color = I("darkblue"))

# value starts as 'darkblue'    
gg$layers[[1]]$aes_params$colour <- 'red'