Рендеринг сетки графика в Sweave

Question

У меня есть небольшая подпрограмма, которая организует графики ggplot и grid с использованием функции grid.arrange в пакете gridExtras. Мне нужно отобразить вывод из моей подпрограммы (которая обычно печатается с использованием grid.draw или возвращает объект сетки в качестве опции) в моей документации Sweave. Я в недоумении, как это сделать, так как, скажем, я использовал "print", не работает так же, как с чистой графикой ggplot. Я пробовал:

g <- ggkm(survfit.object, returns=T)
print(g)

где g - объект, созданный grid.arrange и имеющий класс

> class(g)
[1] "frame" "gTree" "grob"  "gDesc"

Любая помощь будет оценена

Abhijit

Answer 1

Печать объекта, как он создан, а не печать сохраненного объекта, кажется, работает, хотя я не мог объяснить, почему ...

\documentclass{article}
\begin{document}


<<>>=
library(ggplot2)
library(gridExtra)

d <- data.frame(x=1:10,y=1:10,z=runif(10))
g1 <- qplot(x,y,data=d)
g2 <- qplot(x,z,data=d)
@ 

<<fig=TRUE,results=hide>>=
print(grid.arrange(g1,g2,ncol=2))
@ 

\end{document}