如何将r中的rpart.plot函数编织为pdf？

Question

我尝试在一个小型大学项目中使用rpart.plot包中的一些图表制作pdf。我在下面写了一个小的.rmd。

我从R。

的帮助页面复制了这些功能

如果我在使用rpart.plot之前制作了一个情节，如果情节发生在第一次调用rpart.plot的同一个Rchunk中，则不会发生此问题。 但是在这个项目中，我不想在使用rpart.plot之前创建一个图。

感谢您的帮助。

---
title: "Untitled"

author: "smurfit"

date: "5 Dezember 2017"

output: pdf_document
---
```{r}

library("rpart")
library("rpart.plot")

old.par <- par(mfrow=c(1,1))                    # put 1 figure on one page

data(ptitanic)

binary.model <- rpart(survived ~ ., data=ptitanic, cp=.02)
                      # cp=.02 for small demo tree
rpart.plot(binary.model,
           main="titanic survived\n(binary response)")

rpart.plot(binary.model,
           box.palette="Grays",         # override default GnBu palette
           main="titanic survived\nbox.palette = \"Grays\"")
´´´