r - 如何在 knitr 中以横向 [旋转 90 度] 方向制作图？

Question

下面的 knitr 代码给出了下面的图——我如何在横向方向上绘制它？

```{r}
rm(list=ls())
library(tree)
set.seed(1111)
x1<-runif(100)
x2<-rnorm(100,mean=.3)
x3<-runif(100)
d1<-x1>0.5
d2<-x2>0.7
d3<-x3<0.2
y<-ifelse(d1,1,ifelse(d2,2,ifelse(d3,3,4)))
df<-data.frame(x1,x2,x3,y)
tr<-tree(y~.,data=df)
plot(tr)
text(tr)
```

Answer 1

如果您想要 pdf/LaTeX 输出，使用 out.extra='angle=90' block 参数非常容易:

---
title: "Rotation test"
output: pdf_document
---

```{r, out.extra='angle=90'}
rm(list=ls())
library(tree)
set.seed(1111)
x1<-runif(100)
x2<-rnorm(100,mean=.3)
x3<-runif(100)
d1<-x1>0.5
d2<-x2>0.7
d3<-x3<0.2
y<-ifelse(d1,1,ifelse(d2,2,ifelse(d3,3,4)))
df<-data.frame(x1,x2,x3,y)
tr<-tree(y~.,data=df)
plot(tr)
text(tr)
```

在某些情况下，最好保持图形不变，但只旋转文档中横向格式的一页。为此，您需要 pdflscape LaTeX 包(例如，在 Ubuntu 中作为“oberdiek”包含在 texlive-latex-base 包中)。

在下面的示例中，图形被扩展为占据横向格式的完整 A4 页面。注意:您必须指定 fig.align='center' 才能使其正常工作。

---
title: "Rotation test"
output: pdf_document
header-includes:
      - \usepackage{pdflscape}
---

```{r}
rm(list=ls())
library(tree)
set.seed(1111)
x1<-runif(100)
x2<-rnorm(100,mean=.3)
x3<-runif(100)
d1<-x1>0.5
d2<-x2>0.7
d3<-x3<0.2
y<-ifelse(d1,1,ifelse(d2,2,ifelse(d3,3,4)))
df<-data.frame(x1,x2,x3,y)
tr<-tree(y~.,data=df)
```

\newpage

\begin{landscape}

```{r fig.align='center', fig.width = 27/2.54, fig.height = 19/2.54}
plot(tr)
text(tr)
```
\end{landscape}

```{r}
summary(tr)
```