如何在 ggplot2 / Rmarkdown 中跨标签？答案

【问题标题】：How to facet across tabs in ggplot2 / Rmarkdown?如何在 ggplot2 / Rmarkdown 中跨标签？
【发布时间】：2020-04-14 12:00:11
【问题描述】：

我知道facet_wrap 和facet_grid 用于分面。对于需要更多空间的更详细的图形，可以轻松地跨越Rmarkdown tabs

除了将图形的代码复制到每个选项卡中并在每个选项卡中分别过滤构面变量之外，是否有本机 (ggplot2/Rmarkdown) 方式来执行此操作？

借用链接问题中的示例，所需的输出将是第一个分面图，其中显示“标签内容 1”，第二个在第二个标签中，依此类推（标签与分面一样多)

【问题讨论】：

标签： r ggplot2 r-markdown

【解决方案1】：

以下是制作这些自动化标签的方法

---
title: "Untitled"
author: "me"
date: "14 April 2020"
output: html_document
---

```{r}
library(ggplot2)
library(ggforce)
```

## A header {.tabset}

```{r, results='asis'}
n <- 10

# Make main plot
plot <- ggplot(diamonds) +
    geom_point(aes(carat, price), alpha = 0.1) 

# Facet_*_paginate loop over facets
plots <- lapply(seq_len(n), function(i) {
  plot + facet_wrap_paginate(~ cut:clarity, ncol = 1, nrow = 1, page = i)
})

# Print a tab and a plot for each n
# Important to set "results = 'asis'" in chunk options
for (i in seq_len(n)) {
  cat(paste0("\n\n### Tab ", i, "\n"))
  print(plots[[i]])
}
```

【讨论】：

你认为##应该放在最后吗？（包括上面没有## 的代码导致下一部分完全消失，直到最后一个选项卡被点击（尽管这可能是我正在从事的项目的特定内容）。