基于R语言制作带下拉选择的Flexdashboard加载预存Plotly图表

核心逻辑 #

借助flexdashboard整合shiny交互组件，通过下拉菜单的选择组合，动态调用预先生成的Plotly HTML图表文件，最终导出完整的交互式仪表盘。

完整R Markdown代码 #

---
title: "动态Plotly图表仪表盘"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(htmltools)

侧边栏 {.sidebar} #

参数选择 #

• 颜色

selectInput("color", "选择颜色:",
            choices = c("Red", "Blue"),
            selected = "Red")

• 字母

selectInput("letter", "选择字母:",
            choices = c("A", "B"),
            selected = "A")

主面板 #

交互式图表 #

renderUI({
  # 按选择组合拼接文件名（需与你的Plotly HTML文件命名规则匹配）
  target_file <- paste0(input$color, "_", input$letter, ".html")
  # 嵌入并渲染目标HTML图表
  includeHTML(target_file)
})

## 关键步骤说明
1. **启用Shiny运行时**：YAML头部必须添加`runtime: shiny`，否则无法支持下拉菜单的交互逻辑和动态渲染。
2. **文件名匹配**：确保你的4个Plotly HTML文件命名严格遵循`颜色_字母.html`格式（如`Red_A.html`、`Blue_B.html`），如果文件名规则不同，修改`paste0`里的拼接逻辑即可。
3. **文件路径**：若预先生成的HTML文件不在当前工作目录，需在`target_file`中填写完整文件路径（比如`"plots/Red_A.html"`）。

## 导出仪表盘HTML
直接在RStudio点击**Knit**按钮，或在控制台运行以下命令：
```r
rmarkdown::render("你的仪表盘文件.Rmd", output_format = "flexdashboard::flex_dashboard")

执行后会在指定目录生成包含交互功能的最终仪表盘HTML文件。

注意事项 #

• includeHTML会完整保留Plotly图表的所有交互特性，和单独打开原HTML文件的体验一致。
• 若遇到加载失败，检查文件路径是否正确、文件名是否与选择项完全匹配（注意大小写）。

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