在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}