Quarto嵌套标签中ggplotly图表无法显示的解决求助

当使用results: asis动态生成Quarto嵌套标签时，直接输出ggplotly对象会导致交互式图表无法渲染——这是因为asis模式会跳过Quarto对widget的自动处理流程，直接打印对象的文本信息而非可交互的HTML代码。

修正方案 #

核心思路是将ggplotly对象转换为HTML字符串后再输出，具体步骤如下：

1. 加载htmltools包，用于处理HTML标签转换
2. 用htmltools::as.tags()将ggplotly对象转为HTML标签结构
3. 用as.character()将标签转为字符串，再通过cat()输出到文档中

可复现修正代码 #

---
title: "Nested Tabs with ggplotly"
format: html
---

```{r, results='asis'}
library(ggplot2)
library(plotly)
library(htmltools)

# 外层标签容器
cat("::: {.panel-tabset}\n")

# 第一个外层标签
cat("## 主标签1\n")
cat("::: {.panel-tabset}\n")

# 内层子标签1
cat("### 子标签1\n")
p1 <- ggplot(mtcars, aes(mpg, wt)) + geom_point(color = "red")
# 转换并输出ggplotly图表
cat(as.character(as.tags(ggplotly(p1))))

# 内层子标签2
cat("### 子标签2\n")
p2 <- ggplot(mtcars, aes(disp, hp)) + geom_line(color = "blue")
cat(as.character(as.tags(ggplotly(p2))))

cat(":::\n")

# 第二个外层标签
cat("## 主标签2\n")
p3 <- ggplot(mtcars, aes(cyl, qsec)) + geom_boxplot()
cat(as.character(as.tags(ggplotly(p3))))

# 闭合外层标签容器
cat(":::\n")

### 关键说明
- 必须通过`as.tags()`和`as.character()`转换ggplotly对象，确保`results: asis`能输出正确的交互式HTML代码
- 嵌套标签的语法要严格遵循Quarto规范：用`::: {.panel-tabset}`定义标签容器，配合`##`/`###`等标题层级区分标签层级
- 如果是循环生成批量标签，只需在循环体内重复「生成图表→转换为HTML字符串→cat输出」的流程即可

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