使用 pdf_output R Markdown 强制空图以“patchwork”显示

Question

我想使用 patchwork 库和 plot_spacer() 显示占据页面一半的单个图（看起来就像占据一列）功能。问题是，我不能让“空地”占据一半的空间！无论我做什么，第一个图似乎占据了页面的大部分内容。我正在寻找与下面的 p1 + p2 等效的内容，但我希望 p2 是空白。

可重现的示例和输出

---
title: " "
author: " "
date: " "
output: pdf_document
geometry: paperheight=8.5in,paperwidth=5.5in,left=0.4in, right=0.4in, top=0.25in, bottom=0.25in
header-includes:
    - \pagenumbering{gobble}
---

{r, fig.height = 1.5}
library(ggplot2)
library(patchwork)
p1 <- ggplot(iris, aes(Sepal.Width, Sepal.Length)) + geom_point()
p2 <- ggplot() + geom_blank()
p3 <- p2 + theme_void()

p1 + plot_spacer()
p1 + p1
p1 + p2
p1 + p3

另请注意，这些图似乎在我的 R 会话中工作，但在输出到 pdf 时不起作用：

最后，我还尝试了另一个使用 plot_layout 的建议：

design <- "
1#
"

p1 + plot_layout(design = design)

这似乎也适用于会话，但不适用于 pdf_output。

Answer 1

如果我理解正确，您应该在代码块中设置 out.height="50%" 。这意味着绘图将占据页面的 50%。为了创建空白图，我使用了白色背景的主题。您可以在下面的代码中看到这一点：

output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

\newpage

```{r, out.height="50%"}
library(ggplot2)
library(patchwork)
p1 <- ggplot(iris, aes(Sepal.Width, Sepal.Length)) + geom_point()
p2 <- ggplot() + geom_blank() + theme(panel.background = element_rect(fill = 'white', colour = 'white'))
p3 <- p2 + theme_void()

p1 + plot_spacer()
p1 + p1
p1 + p2
p1 + p3
```

在 pdf 文档中，您将看到绘图将绘制页面的 50%。 p1 +plot_spacer() 的输出如下所示：

p1 + p1 和 p1 + p2 的输出:

最后是 p1 + p3 的输出：

正如您从图像中看到的，这些图占了页面的一半在一列中。