如何在Quarto中通过编程生成tabset-panel展示ggplot图表？

问题根源 #

当你的代码块同时包含results:asis和绘图相关选项（如fig.width、fig.height）时，Quarto会优先将该代码块识别为绘图输出块，而非纯Markdown输出块，导致你用cat()生成的标签页语法（::: panel-tabset）无法被正确解析，最终只渲染出二级标题，而非标签页。

两种解决方法 #

方法1：拆分代码块（推荐） #

把绘图逻辑和标签页结构生成分开，各司其职：

1. 第一个代码块：负责生成所有ggplot对象，设置fig.show="hide"避免提前渲染，同时可以正常使用绘图尺寸选项

```{r, echo=FALSE, fig.show="hide", fig.width=6, fig.height=4}
library(ggplot2)
# 生成命名列表plots
plots <- list(
  散点图 = ggplot(mtcars, aes(mpg, disp)) + geom_point(),
  箱线图 = ggplot(mtcars, aes(cyl, mpg)) + geom_boxplot()
)

2. 第二个代码块：仅保留`results:asis`和`echo=FALSE`，专注输出标签页结构并渲染图表
```r
```{r, results='asis', echo=FALSE}
cat("::: panel-tabset\n")
for (tab_name in names(plots)) {
  # 输出标签页标题
  cat(paste0("## ", tab_name, "\n\n"))
  # 渲染对应图表
  print(plots[[tab_name]])
  cat("\n")
}
cat(":::\n")

### 方法2：移除绘图选项，在ggplot内设置尺寸
如果不想拆分代码块，就删掉所有绘图相关的代码块选项，转而在ggplot对象里直接设置尺寸：
```r
```{r, results='asis', echo=FALSE}
library(ggplot2)
plots <- list(
  散点图 = ggplot(mtcars, aes(mpg, disp)) + 
    geom_point() +
    # 直接在theme里设置图尺寸
    theme(plot.width = unit(6, "in"), plot.height = unit(4, "in")),
  箱线图 = ggplot(mtcars, aes(cyl, mpg)) + 
    geom_boxplot() +
    theme(plot.width = unit(6, "in"), plot.height = unit(4, "in"))
)

cat("::: panel-tabset\n")
for (tab_name in names(plots)) {
  cat(paste0("## ", tab_name, "\n\n"))
  print(plots[[tab_name]])
  cat("\n")
}
cat(":::\n")

## 原理说明
Quarto对代码块的处理逻辑是：如果代码块包含绘图相关选项，会优先处理绘图输出，此时`results:asis`输出的Markdown文本会被忽略或当作普通内容，无法触发标签页的解析。拆分块或者移除绘图选项后，Quarto会正确识别`results:asis`输出的标签页容器语法，从而生成预期的标签页效果。

内容的提问来源于stack exchange，提问作者Michael Luu