在Rmarkdown中实现下拉菜单切换ggplotly交互式柱状图

方法一：基于Shiny Runtime的动态生成方案 #

这种方法直接在Rmarkdown中嵌入Shiny交互组件，实时根据下拉选择生成对应图表，适合数据量不大的场景。

首先在Rmarkdown开头指定runtime参数：

---
title: "Yvar交互式柱状图"
output: html_document
runtime: shiny
---

核心代码实现：

# 1. 替换为你的实际数据集
set.seed(123)
df <- data.frame(
  GeneFam = rep(paste0("Gene", 1:10), 13*3),
  s0 = rnorm(390, mean = 5, sd = 2),
  Prev = sample(c("Low", "Medium", "High"), 390, replace = TRUE),
  Yvar = rep(paste0("Y", 1:13), each = 30)
)

# 2. 创建Yvar下拉选择框
inputPanel(
  selectInput("y_select", label = "选择Yvar:",
              choices = unique(df$Yvar),
              selected = unique(df$Yvar)[1])
)

# 3. 动态渲染交互式图表
renderPlotly({
  # 根据选中项筛选数据
  filtered_df <- df[df$Yvar == input$y_select, ]
  
  # 保留你原本的ggplot逻辑
  p <- ggplot(filtered_df, aes(x = GeneFam, y = s0, fill = Prev)) +
    geom_col(position = "dodge") +
    labs(title = paste("Yvar:", input$y_select),
         x = "基因家族", y = "s0值") +
    theme_bw() +
    theme(axis.text.x = element_text(angle = 45, hjust = 1))
  
  # 转为ggplotly交互式图
  ggplotly(p)
})

方法二：预生成图表列表的静态切换方案 #

如果不想依赖Shiny Runtime，可以预先生成所有Yvar对应的ggplotly对象，再用HTML下拉菜单结合JavaScript切换显示，适合生成纯静态HTML文件的场景。

代码示例：

---
title: "Yvar交互式柱状图"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(ggplot2)
library(plotly)
library(htmltools)

# 替换为你的实际数据集
set.seed(123)
df <- data.frame(
  GeneFam = rep(paste0("Gene", 1:10), 13*3),
  s0 = rnorm(390, mean = 5, sd = 2),
  Prev = sample(c("Low", "Medium", "High"), 390, replace = TRUE),
  Yvar = rep(paste0("Y", 1:13), each = 30)
)

# 预生成所有Yvar对应的ggplotly图表列表
plot_list <- lapply(unique(df$Yvar), function(y) {
  filtered <- df[df$Yvar == y, ]
  p <- ggplot(filtered, aes(x = GeneFam, y = s0, fill = Prev)) +
    geom_col(position = "dodge") +
    labs(title = paste("Yvar:", y),
         x = "基因家族", y = "s0值") +
    theme_bw() +
    theme(axis.text.x = element_text(angle = 45, hjust = 1))
  ggplotly(p)
})
names(plot_list) <- unique(df$Yvar)

# 创建下拉菜单和图表容器
tags$div(
  tags$select(
    id = "y_dropdown",
    lapply(unique(df$Yvar), function(y) {
      tags$option(value = y, y)
    })
  ),
  tags$div(id = "plot_container")
)

# 添加切换逻辑的JavaScript
tags$script(HTML("
  // 初始化显示第一个图表
  document.getElementById('plot_container').innerHTML = '", plot_list[[1]]$html, "';
  
  // 下拉菜单切换事件
  document.getElementById('y_dropdown').addEventListener('change', function() {
    var selected = this.value;
    document.getElementById('plot_container').innerHTML = '", 
    paste(sapply(names(plot_list), function(y) {
      paste0("if (selected == '", y, "') { '", plot_list[[y]]$html, "' }")
    }), collapse = " else "),
    "';
  });
"))

### 关键说明
- 两种方案都保留了你原本的ggplot绘图逻辑，仅新增交互切换功能
- Shiny方案更简洁，实时生成图表，适合需要频繁更新数据的场景
- 预生成列表方案生成纯静态HTML，无需依赖Shiny服务器，适合分享给他人离线查看
- 可根据实际需求调整`geom_col`的位置参数（如`position = "stack"`）或图表主题样式

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