创建后修改ggplot对象

Question

是否有一种ggplot在创建后修改对象的首选方法？

例如,我建议我的学生将r对象与pdf文件一起保存以供以后更改...

library(ggplot2)
graph <- 
  ggplot(mtcars, aes(x=mpg, y=qsec, fill=cyl)) +
  geom_point() +
  geom_text(aes(label=rownames(mtcars))) +
  xlab('miles per galon') +
  ggtitle('my title')

ggsave('test.pdf', graph)
save(graph, file='graph.RData')

如此新的,如果他们必须更改标题或标签或有时其他东西,他们可以轻松加载对象并更改简单的事情.

load('graph.RData')
print(graph)
graph + 
  ggtitle('better title') +
  ylab('seconds per quarter mile')

例如,我需要做什么才能将颜色更改为离散比例？在原来的情节我会包裹y在as.factor.但之后有办法吗？或者,当数据存在时,是否有更好的方法来修改对象gone.很想得到一些建议.

Answer 1

您可以使用ggplot_build()在没有代码或数据的情况下更改绘图:

示例图:

data("iris")

p <- ggplot(iris) + 
  aes(x = Sepal.Length, y = Sepal.Width, colour = Species) + 
  geom_point()

颜色分别对应Species.

使用ggplot_build()以下方法拆卸绘图:

q <- ggplot_build(p)

看看对象q,看看这里发生了什么.要更改点的颜色,可以在以下位置更改相应的表q:

q$data[[1]]$colour <- "black"

使用ggplot_gtable()以下方法重新组装绘图:

q <- ggplot_gtable(q)

并绘制它:

plot(q)

现在,积分是黑色的.