创建后修改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)

现在，这些点是黑色的。