R Shiny应用中点击按钮后Plotly图表无法正常显示问题求助

核心问题 #

你的代码核心错误是UI端输出组件和服务端渲染函数类型不匹配，同时存在多余的打印语句干扰渲染，按照以下思路排查即可解决：

• 输出组件类型校验：renderPlotly()是plotly包提供的渲染函数，仅能绑定UI端的plotly::plotlyOutput()组件，你当前UI用的plotOutput()是Shiny原生用于渲染普通ggplot静态图的组件，无法接收plotly对象，这是图表不显示的最主要原因。
• 多余打印语句移除：Shiny服务端渲染Plotly图表时不需要调用print()输出对象，直接给output对象赋值即可，多余的print()会打断渲染链路。
• 依赖包加载校验：确认代码运行前已加载shiny、ggplot2、plotly、stringr四个依赖包，缺少任意一个都会引发静默报错导致图表不渲染。
• 渲染逻辑规范校验：不推荐在observeEvent内部直接定义output输出，更合理的写法是用eventReactive封装图表生成逻辑，再将output绑定到该响应式对象，避免重复执行、内存泄漏等潜在问题。

library(shiny)
library(ggplot2)
library(plotly)
library(stringr)

shinyApp(
  ui = fluidPage(
    sidebarLayout(
      sidebarPanel(
        actionButton("button", "Show Chart")
      ),
      mainPanel(
        plotlyOutput("bar") # 替换为plotly专属输出组件
      )
    )
  ),
  server = function(input, output) {
    # 用eventReactive封装图表生成逻辑，仅在按钮点击时触发
    plot_data <- eventReactive(input$button, {
      category <- c('task1', 'task2', 'task2','task1','task1')
      start_min <- c(0, 0, 16, 45, 40)
      stop_min <- c(14.9,18.8,17.5,65.5, 70)
      group <- c('A', 'B', 'A', 'A', 'B')
      data <- data.frame(category,start_min,stop_min,group)
      
      task_bars <- ggplot(data, mapping=aes(ymin=0, ymax=1,
                                            xmin=start_min, xmax=stop_min,
                                            fill=as.factor(category),
                                            text=paste("Task:", str_wrap(string = category, width = 70,),
                                                       "<br>Start: ", format(start_min, digits=1), "min", 
                                                       "<br>Stop: ", format(stop_min, digits=1), "min")
      )) +
        geom_rect(alpha=0.8) +
        theme_minimal()+
        theme(
          axis.title.x=element_text(color="white"), axis.text.x=element_text(color="white"),
          axis.text.y=element_blank(), axis.ticks.y=element_blank(),
          panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
          panel.border = element_blank(), panel.background = element_blank()) +
        scale_fill_discrete(breaks=data$category)
      
      task_bars <- ggplotly(task_bars, tooltip="text", width = 970, height = 120) %>%
        config(displayModeBar = TRUE) %>% 
        layout(plot_bgcolor='black', paper_bgcolor='black', margin = list(b=30, l=0, r=10, t=30))
      return(task_bars)
    })
    
    # 输出绑定响应式对象
    output$bar <- renderPlotly(plot_data())
  }
)

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