如何在Shiny应用中展示本地Plotly生成的HTML格式图表？

没问题，我刚好做过类似的需求，给你一套完整的解决方案，亲测好用！

第一步：整理文件结构 #

先把所有Plotly生成的.html图表文件，统一放到项目根目录下的plotly_charts文件夹里，这样Shiny读取起来更规整。你的项目结构大概是这样：

your_shiny_app/
├── app.R
└── plotly_charts/
    ├── sales_trend.html
    ├── user_distribution.html
    └── ...（其他所有图表文件）

第二步：编写Shiny应用代码 #

核心思路是用htmltools::includeHTML()直接加载本地HTML文件，再搭配Shiny的交互组件让用户选择要查看的图表，完全不需要重新绘图。

完整的app.R代码： #

library(shiny)
library(htmltools)

# 定义UI界面
ui <- fluidPage(
  titlePanel("预生成Plotly图表展示平台"),
  sidebarLayout(
    sidebarPanel(
      # 生成图表选择下拉框
      selectInput(
        inputId = "chart_picker",
        label = "选择要查看的图表",
        # 自动读取plotly_charts文件夹下的所有html文件
        choices = list.files(path = "plotly_charts", pattern = "\\.html$"),
        selected = NULL
      )
    ),
    mainPanel(
      # 用于展示图表的输出区域
      htmlOutput("displayed_chart")
    )
  )
)

# 定义Server逻辑
server <- function(input, output) {
  # 渲染选中的图表
  output$displayed_chart <- renderUI({
    # 拼接选中图表的完整路径
    target_path <- file.path("plotly_charts", input$chart_picker)
    # 加载并嵌入HTML图表
    includeHTML(target_path)
  })
}

# 启动Shiny应用
shinyApp(ui = ui, server = server)

第三步：关键细节说明 #

• 路径问题：一定要保证plotly_charts文件夹和app.R在同一目录下；如果文件夹位置不同，记得修改list.files()和file.path()里的路径参数（推荐用相对路径，方便应用移植）。
• 交互性保留：Plotly HTML图表自带的缩放、悬停提示、下载等交互功能，都会完整保留，因为我们是直接嵌入整个HTML内容，不是重新渲染。
• 性能优势：因为是直接加载预生成的文件，不管图表数量多少，加载速度都远快于实时绘图，完全解决你耗时久的问题。

进阶优化（可选） #

如果你的图表数量特别多，下拉框找起来麻烦，可以加个搜索框快速定位：

# 在sidebarPanel里新增搜索框
textInput(inputId = "chart_search", label = "搜索图表名称"),
# 修改下拉框为动态响应搜索结果
selectInput(
  inputId = "chart_picker",
  label = "选择要查看的图表",
  choices = NULL,
  selected = NULL
)

# 更新Server逻辑，添加搜索过滤
server <- function(input, output, session) {
  # 动态更新下拉框选项
  observe({
    all_charts <- list.files(path = "plotly_charts", pattern = "\\.html$")
    # 根据搜索关键词过滤图表
    filtered_charts <- grep(input$chart_search, all_charts, ignore.case = TRUE, value = TRUE)
    updateSelectInput(session, "chart_picker", choices = filtered_charts)
  })
  
  # 渲染图表的逻辑（加个判断确保有选择才渲染）
  output$displayed_chart <- renderUI({
    req(input$chart_picker)
    target_path <- file.path("plotly_charts", input$chart_picker)
    includeHTML(target_path)
  })
}

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