在 Sweave 中渲染网格图形

Question

我有一个简短的例程，它使用 gridExtras 包中的 grid.arrange 函数来排列 ggplot 和网格图形。我需要在我的 Sweave 文档中渲染例程的输出(名义上使用 grid.draw 打印，或返回网格对象作为选项)。我不知道如何做到这一点，因为我一直在使用“print”的说法与纯 ggplot 图形的工作方式不同。我试过:

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

其中g是由grid.arrange创建的对象，并且具有类

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

如有任何帮助，我们将不胜感激

阿比 git

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}