R Markdown中用for循环生成非ggplot图时如何使用tabset功能

问题背景 #

在RStudio中用R Markdown生成HTML文件时，通过for循环遍历十余个变量，使用依赖CATALYST的CytofWorkflow包生成非ggplot格式绘图，希望借助tabset功能将每个变量对应的图放在独立标签页中，但循环代码块仅能生成标题正确的标签页，无法将对应图形匹配到正确标签页下。

解决方案 #

核心是启用results='asis'代码块选项，让R动态生成的Markdown标签被正确解析，同时显式调用print()输出非ggplot类图形（这类图形不会自动渲染，需手动触发）。

可复现代码示例 #

---
title: "CytofWorkflow Tabset Plots"
output: html_document
---

## 分标签页展示绘图 {.tabset}

```{r, results='asis', echo=FALSE, message=FALSE, warning=FALSE}
library(CATALYST)
library(CytofWorkflow)

# 加载示例数据（替换为你的真实数据）
data("PBMC_fs")
data("PBMC_panel")
data("PBMC_md")
sce <- prepData(PBMC_fs, PBMC_panel, PBMC_md)

# 定义要遍历的变量列表
vars <- c("CD3", "CD4", "CD8", "CD14")

for (var in vars) {
  # 生成当前标签页的Markdown标题
  cat(sprintf("### %s\n", var))
  
  # 生成CytofWorkflow绘图
  plot_obj <- plotExprs(sce, features = var)
  
  # 显式打印图形（非ggplot类图形必须手动print）
  print(plot_obj)
  
  # 添加换行分隔，确保标签页内容解析正确
  cat("\n\n")
}

关键要点 #

• results='asis'：让代码块输出的内容直接作为Markdown语法解析，而非普通文本，这样动态生成的###标签才能被识别为tabset的子标签页。
• 显式print()：CytofWorkflow生成的图形属于base绘图/grid体系，不像ggplot2会自动渲染，必须手动调用print()才能将图形输出到当前标签页的对应位置。
• cat("\n\n")：添加换行分隔每个标签页的内容，避免Markdown解析时出现内容混排、标签页失效的问题。

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