在Sweave中渲染网格图形

Question

我有一个简短的例程，它使用gridExtras包中的grid.arrange函数来排列ggplot和网格图形。我需要在我的Sweave文档中呈现来自我的例程的输出（名义上使用grid.draw进行打印，或者将网格对象作为选项返回）。我不知道如何做到这一点，因为我一直使用“打印”的说法与纯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}