Quarto文档嵌套标签页图表显示异常问题求助

问题描述 #

在Quarto文档中自定义nested_tabs函数，通过嵌套列表生成嵌套标签页，标签切换功能正常，但标签内的ggplot图表仅显示对象路径（如<ggplot: (xxxxxx)>），无法渲染为可视化图表。

可复现代码如下：

---
title: "test"
format: html
---

#| echo: false
#| message: false
#| warning: false
library(tidyverse)

# example list
example_list <- list(
  tab1 = list(test1.1 = ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width))+
                geom_point(),
              test1.2 = ggplot(iris, aes(x = Petal.Length, y = Sepal.Width))+
                geom_point()),
  tab2 = list(test2 = ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length))+
                geom_point())
)

# function
nested_tabs <- function(nested_list) {
 
  main_tab <- names(nested_list)
 
  cat(':::: {.panel-tabset} \n') # main tab
  
  for (i in main_tab) {
    id <- which(main_tab == i)
    cat("##", as.character(i), "\n\n")
 
    cat("::: {.panel-tabset} \n\n") # sub tab
 
    for (j in 1:length(names(nested_list[[id]]))) {
      cat("###", names(nested_list[[id]])[j], "\n\n")
      cat("```{r}\n")
      base::print(nested_list[[id]][[j]])
      cat("\n```\n\n")
    }
    cat("\n:::\n\n")
  }
  cat("::::")
}

#| results: asis
#| echo: false
#| message: false
#| warning: false

nested_tabs(example_list)

问题原因 #

函数中通过cat生成包含print(ggplot对象)的R代码块，会直接输出ggplot对象的文本路径，而非触发Quarto的图表渲染机制。Quarto无法识别这种字符串形式的对象来生成可视化图表。

解决方案 #

修改函数逻辑，移除嵌套代码块的生成逻辑，直接在results: asis的代码块中打印ggplot对象，让Quarto自动触发渲染：

nested_tabs <- function(nested_list) {
 
  main_tab <- names(nested_list)
 
  cat(':::: {.panel-tabset} \n') # main tab
  
  for (i in main_tab) {
    cat("##", as.character(i), "\n\n")
 
    cat("::: {.panel-tabset} \n\n") # sub tab
 
    sub_tabs <- nested_list[[i]]
    for (tab_name in names(sub_tabs)) {
      cat("###", tab_name, "\n\n")
      # 直接打印ggplot对象，Quarto会自动渲染为图表
      print(sub_tabs[[tab_name]])
      cat("\n\n")
    }
    cat("\n:::\n\n")
  }
  cat("::::")
}

修改说明 #

1. 去掉了生成嵌套R代码块的cat("```{r}\n")和cat("\n```\n\n")语句，避免输出对象文本路径
2. 直接循环子标签名称，通过print(sub_tabs[[tab_name]])触发Quarto对ggplot对象的渲染逻辑

完整可运行代码 #

---
title: "test"
format: html
---

#| echo: false
#| message: false
#| warning: false
library(tidyverse)

# example list
example_list <- list(
  tab1 = list(test1.1 = ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width))+
                geom_point(),
              test1.2 = ggplot(iris, aes(x = Petal.Length, y = Sepal.Width))+
                geom_point()),
  tab2 = list(test2 = ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length))+
                geom_point())
)

# 修改后的函数
nested_tabs <- function(nested_list) {
 
  main_tab <- names(nested_list)
 
  cat(':::: {.panel-tabset} \n') # main tab
  
  for (i in main_tab) {
    cat("##", as.character(i), "\n\n")
 
    cat("::: {.panel-tabset} \n\n") # sub tab
 
    sub_tabs <- nested_list[[i]]
    for (tab_name in names(sub_tabs)) {
      cat("###", tab_name, "\n\n")
      print(sub_tabs[[tab_name]])
      cat("\n\n")
    }
    cat("\n:::\n\n")
  }
  cat("::::")
}

#| results: asis
#| echo: false
#| message: false
#| warning: false

nested_tabs(example_list)

修改后，嵌套标签页中的ggplot图表会正常渲染，标签切换功能保持正常。

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