plotly::subplot注释标题在R闪亮中消失

library(shiny)
library(plotly)

ui <- fluidPage(
  plotlyOutput("plot")
)

server <- function(input, output) {
  data <- reactiveValues(
    plot_data = list(
      plot1 = ggplot(mtcars, aes(x = mpg, y = hp)) + geom_point() + labs(title = "Plot 1"),
      plot2 = ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point() + labs(title = "Plot 2")
    )
  )

  output$plot <- renderPlotly({
    subplot(
      ggplotly(data$plot_data$plot1),
      ggplotly(data$plot_data$plot2)
    )
  })
}

shinyApp(ui, server)

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

ui <- fluidPage(
  plotlyOutput("plot")
)

server <- function(input, output) {
  data <- reactiveValues(
    plot_data = list(
      plot1 = ggplot(mtcars, aes(x = mpg, y = hp)) + geom_point(),
      plot2 = ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point()
    )
  )

  output$plot <- renderPlotly({
    p1 <- ggplotly(data$plot_data$plot1) %>% layout(title = "Plot 1")
    p2 <- ggplotly(data$plot_data$plot2) %>% layout(title = "Plot 2")
    subplot(p1, p2)
  })
}

shinyApp(ui, server)