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 개체에서 이동하실 수 없습니다.

Answer 2

'expression()'을 사용하여 R 코드를 표현식으로 저장 한 다음 'eval()'로 평가할 수 있습니다. 예 :

p <- expression(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")) 

다음

eval(p)

플롯을 생성하지만 원래 코드는 여전히 표현으로 변수 'P'에 저장된다.

그렇게

p

는 우리가 시작한 일이다

expression(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")) 

을 생산하고 있습니다.

'eval()'은 parse()와 함께 텍스트로 구문 분석되는 경우 문자열을 표현식으로 평가할 수도 있습니다.

eval(parse(text='f(arg=value)')