ggplotly在Shiny驱动的HTML文档中无法显示的问题

核心问题原因 #

你遇到的问题根源在于Shiny对静态ggplot和交互式plotly图形的渲染逻辑不通用：静态ggplot靠plotOutput()+renderPlot()组合渲染，而ggplotly生成的是交互式plotly对象，必须用对应的plotlyOutput()+renderPlotly()组合才能正常加载。

修正步骤及可运行示例代码 #

替换你原来的错误代码，用以下完整代码即可实现需求：

---
title: "Shiny + ggplotly 交互式图形演示"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
library(shiny)
library(ggplot2)
library(plotly)

选择图形版本 #

radioButtons("plot_type", "选择图形类型：",
             choices = c("交互式ggplotly", "静态ggplot"),
             selected = "交互式ggplotly")

# 用plotlyOutput匹配交互式图形渲染
plotlyOutput("plot_result")

output$plot_result <- renderPlotly({
  # 构建基础ggplot对象
  base_plot <- ggplot(mtcars, aes(x = wt, y = mpg, label = rownames(mtcars))) +
    geom_point(size = 2)
  
  if(input$plot_type == "交互式ggplotly"){
    # 返回ggplotly交互式对象
    ggplotly(base_plot)
  } else {
    # 静态图兼容plotlyOutput的方式：关闭tooltip模拟静态效果
    ggplotly(base_plot, tooltip = NULL)
  }
})

关键修正点 #

• UI控件：把原来的plotOutput()改成plotlyOutput()，这是Shiny专门为plotly交互式图形设计的输出容器
• Server逻辑：将renderPlot()替换为renderPlotly()，确保ggplotly生成的对象能被正确解析渲染
• 依赖加载：必须在setup块中加载plotly包，漏加载会直接导致渲染失败

如果想让两种图形各自用最适配的渲染逻辑，可以用conditionalPanel拆分输出控件，示例如下：

---
title: "Shiny + ggplotly 双输出模式"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
library(shiny)
library(ggplot2)
library(plotly)

选择图形版本 #

radioButtons("plot_type", "选择图形类型：",
             choices = c("交互式ggplotly", "静态ggplot"),
             selected = "交互式ggplotly")

# 根据选择切换不同输出控件
conditionalPanel(
  condition = "input.plot_type == '交互式ggplotly'",
  plotlyOutput("interactive_plot")
)

conditionalPanel(
  condition = "input.plot_type == '静态ggplot'",
  plotOutput("static_plot")
)

# 交互式图形渲染逻辑
output$interactive_plot <- renderPlotly({
  p <- ggplot(mtcars, aes(x = wt, y = mpg, label = rownames(mtcars))) +
    geom_point(size = 2)
  ggplotly(p)
})

# 静态图形渲染逻辑
output$static_plot <- renderPlot({
  ggplot(mtcars, aes(x = wt, y = mpg)) +
    geom_point(size = 2)
})

这种方式能让静态图和交互式图各自用最优的渲染通道，避免兼容问题。

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