使用grid.arrange时如何减少ggplot和下一个文本之间的空间？

Question

考虑以下R降价页面

```{r setup, include=FALSE}
require(ggplot2)
require(data.table)
require(gridExtra)
require(knitr)

knitr::opts_chunk$set(echo = TRUE)
```

```{r, include=FALSE}
df <- data.table(x1=rnorm(n = 100), x2=rnorm(100))
```

Here is a plot

```{r,echo=FALSE, out.width='\\textwidth'}
hist1 <- ggplot(df, aes(x=x1)) +
  geom_histogram()

hist2 <- ggplot(df, aes(x=x2)) +
  geom_histogram()

grid.arrange(hist1, hist2, ncol=2, heights=c(10,10))
```

Some more text....

当我用hist1包中的hist2绘制两个直方图grid.arrange()和gridExtra时，发现图太大了，我想减小高度。

heights中的grid.arrange()参数确实减小了高度，但是在绘图和下一个文本之间留有一些空白。
如何减少高度而又不留空格？

Answer 1

在rmarkdown中，我们可以在块选项中设置图形大小。

```{r, echo=FALSE, out.width='\\textwidth', message=FALSE, fig.height=3, fig.width=6, fig.align="center"}
df <- data.table(x1=rnorm(100), x2=rnorm(100))
hist1 <- ggplot(df, aes(x=x1)) + geom_histogram()
hist2 <- ggplot(df, aes(x=x2)) + geom_histogram()
grid.arrange(hist1, hist2, ncol=2)
```

Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod 
tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua.

收益率

注意： ：请参见其他块选项here的摘要。