在Rmarkdown/Quarto HTML文档中实现交互式数据集切换展示

一、RMarkdown + Shiny 实现（官方推荐方案） #

Shiny是RMarkdown实现动态交互的标准方式，完全满足下拉菜单选择数据集并切换展示的需求，具体步骤如下：

• 修改文档类型：将RMarkdown输出格式改为shiny::html_document，或直接创建Shiny RMarkdown文档。
• 添加交互控件：使用selectInput（可多个组合）创建下拉菜单，用于选择目标数据集。
• 动态渲染内容：通过render*系列函数（如renderPlot、renderTable）配合output对象，根据选中的数据集实时生成对应的分析结果。

示例代码框架：

---
title: "多数据集交互式分析"
output: shiny::html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
# 加载所有数据集并存储为列表
dataset_list <- list(
  "数据集A" = read.csv("dataA.csv"),
  "数据集B" = read.csv("dataB.csv"),
  # 可扩展添加更多数据集
)

选择数据集 #

selectInput("selected_data", "选择目标数据集", choices = names(dataset_list))

分析结果展示 #

数据集概览 #

renderPrint({
  summary(dataset_list[[input$selected_data]])
})

可视化分析 #

renderPlot({
  target_data <- dataset_list[[input$selected_data]]
  # 替换为你的自定义绘图逻辑
  hist(target_data$core_value, main = paste("直方图：", input$selected_data))
})

生成的HTML包含Shiny交互功能，用户打开后可直接通过下拉菜单切换数据集，所有分析内容会实时更新。

## 二、Quarto 静态交互方案（无需Shiny，兼容旧版本）
若不想依赖Shiny，可借助HTML widgets或自定义JavaScript实现静态页面的交互切换，核心逻辑是预生成所有数据集的分析结果，再通过JS控制内容的显示/隐藏：

- **预生成分析内容**：为每个数据集生成独立的分析区块，并给每个区块设置唯一ID（如`data-a-summary`、`data-b-plot`）。
- **添加选择控件**：用Quarto的`html`代码块或`htmltools`包的`selectInput`创建下拉菜单。
- **编写JS控制逻辑**：监听下拉菜单的变化事件，隐藏所有分析区块，仅展示选中数据集对应的内容。

示例代码框架：
```qmd
---
title: "多数据集静态交互分析"
format: html
---

```{r setup, include=FALSE}
library(htmltools)
library(ggplot2)
# 加载数据集并存储为列表
dataset_list <- list(
  "数据集A" = read.csv("dataA.csv"),
  "数据集B" = read.csv("dataB.csv")
)
# 封装分析区块生成函数
generate_analysis_block <- function(data, dataset_id) {
  tagList(
    div(id = paste0(dataset_id, "-summary"),
        h3("数据集概览"),
        verbatimTextOutput(paste0(dataset_id, "-summary-text"))
    ),
    div(id = paste0(dataset_id, "-plot"),
        h3("可视化分析"),
        plotOutput(paste0(dataset_id, "-plot-output"))
    )
  )
}
# 生成所有数据集的分析区块
all_blocks <- lapply(names(dataset_list), function(name) {
  clean_id <- tolower(gsub(" ", "-", name))
  generate_analysis_block(dataset_list[[name]], clean_id)
})

选择数据集 #

selectInput("data_selector", "选择目标数据集", choices = names(dataset_list),
            onchange = "switchDataset(this.value)")

# 输出所有预生成的分析区块
tagList(all_blocks)

# 预渲染所有分析结果
for (name in names(dataset_list)) {
  clean_id <- tolower(gsub(" ", "-", name))
  # 渲染概览文本
  output[[paste0(clean_id, "-summary-text")]] <- renderPrint({
    summary(dataset_list[[name]])
  })
  # 渲染可视化图表
  output[[paste0(clean_id, "-plot-output")]] <- renderPlot({
    ggplot(dataset_list[[name]], aes(x = core_value)) + 
      geom_histogram() + 
      ggtitle(name)
  })
}

// 页面加载完成后初始化显示第一个数据集
document.addEventListener('DOMContentLoaded', function() {
  const firstDataset = document.getElementById('data_selector').value;
  switchDataset(firstDataset);
});

// 切换数据集的核心函数
function switchDataset(selectedName) {
  const targetId = selectedName.toLowerCase().replace(/ /g, "-");
  // 隐藏所有分析区块
  document.querySelectorAll('[id$="-summary"], [id$="-plot"]').forEach(block => {
    block.style.display = 'none';
  });
  // 显示选中数据集的对应区块
  document.getElementById(targetId + "-summary").style.display = 'block';
  document.getElementById(targetId + "-plot").style.display = 'block';
}

这种方案生成的是纯静态HTML，无需Shiny服务器支持，兼容Quarto旧版本，适合无法部署Shiny的场景。

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