Question

我将一个降价文件编织成单词。我有3个情节。第一个情节总是放在第二页上，尽管我把它调整到很小。

在发生这种情况的降价脚本下面

---
title: "Melding stats rapportage"
output: word_document
---
Author: PDG  
```{r echo=FALSE, comment=NA}
d<-format(Sys.Date(), "%d-%m-%Y")
dd<- "Date:"
knitr::kable(paste(dd, d))
```
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

```{r fig.width=6, fig.height=6,echo=FALSE}
library(ggplot2)
ggplot(pressure, aes(temperature, pressure)) + geom_bar(stat = "identity")
```
```{r fig.width=6, fig.height=6,echo=FALSE}
library(ggplot2)
ggplot(pressure, aes(temperature, pressure)) + geom_bar(stat = "identity")
```
```{r fig.width=6, fig.height=6,echo=FALSE}
library(ggplot2)
ggplot(pressure, aes(temperature, pressure)) + geom_bar(stat = "identity")
```

Answer 1

我找到了解决方案，以确保图表不会在第二页上开始。似乎如果图形代码立即放在彼此之后，则输出由Markdown作为一个整体而不是3个单独的图形。在3个图形代码之间加一条线使Markdown将3个图形作为单个图形，第一个图形在第一页上很好地放置。

执行操作的代码中的更正：

```{r fig.width=6, fig.height=6,echo=FALSE}
library(ggplot2)
ggplot(pressure, aes(temperature, pressure)) + geom_bar(stat = "identity")
```

```{r fig.width=6, fig.height=6,echo=FALSE}
library(ggplot2)
ggplot(pressure, aes(temperature, pressure)) + geom_bar(stat = "identity")
```

```{r fig.width=6, fig.height=6,echo=FALSE}
library(ggplot2)
ggplot(pressure, aes(temperature, pressure)) + geom_bar(stat = "identity")
```

r markdown总是在第二页上

1 个答案: