从 ggplot 对象返回调用

Question

我一直在用ggplot2有一段时间了，我找不到从 ggplot 获取公式的方法目的。虽然我可以通过 summary(<ggplot_object>) 获得基本信息，为了得到完整的公式，平时我是通过.Rhistory上下梳理的文件。当您尝试新图形时，这会变得令人沮丧，尤其是当代码变得有点冗长时……所以搜索历史文件并不是很方便的方法……有没有更有效的方法来做到这一点？只是一个例子:

p <- qplot(data = mtcars, x = factor(cyl), geom = "bar", fill = factor(cyl)) + 
     scale_fill_manual(name = "Cylinders", value = c("firebrick3", "gold2", "chartreuse3")) + 
     stat_bin(aes(label = ..count..), vjust = -0.2, geom = "text", position = "identity") + 
     xlab("# of cylinders") + ylab("Frequency") + 
     opts(title = "Barplot: # of cylinders")

我可以通过 summary 获得一些基本信息:

> summary(p)
data: mpg, cyl, disp, hp, drat, wt, qsec, vs, am, gear, carb [32x11]
mapping:  fill = factor(cyl), x = factor(cyl)
scales:   fill 
faceting: facet_grid(. ~ ., FALSE)
-----------------------------------
geom_bar:  
stat_bin:  
position_stack: (width = NULL, height = NULL)

mapping: label = ..count.. 
geom_text: vjust = -0.2 
stat_bin: width = 0.9, drop = TRUE, right = TRUE 
position_identity: (width = NULL, height = NULL)

但我想获得我输入的代码来获取图表。我认为我在这里遗漏了一些重要的东西......似乎不可能从 ggplot 接到电话。目的!

Answer 1

目前不可能从 ggplot2 对象转到(可能已经)创建它的代码。