基于Shiny组件输入动态更新ggplotly图表副标题时内容隐藏问题

问题原因 #

• 你使用的checkboxGroupButtons返回的input$intervals_A是字符向量，当选中多个选项时直接拼接会生成多个独立文本片段，导致plotly解析标题时出错，内容被隐藏
• 原有代码中layout的title文本拼接逻辑错误，多个paste0分开调用没有合并为单个字符串，还存在多余的双引号，干扰HTML格式解析
• 没有对多选中的区间值做合并处理，导致文本结构混乱

修正后完整代码 #

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

ui <- fluidPage(
  fluidRow(
    checkboxGroupButtons(inputId = "intervals_A", label = "区间选择:",
                         choices = c("(0.0, 10.0]", "(10.0, 70.0]", "(70.0, 330.0]", "(330.0, inf]"), 
                         selected = c("(0.0, 10.0]", "(10.0, 70.0]", "(70.0, 330.0]", "(330.0, inf]"),  
                         justified = TRUE, 
                         checkIcon = list(yes = icon("ok", lib = "glyphicon")))
  ),
  fluidRow(plotlyOutput("plot"))
)

server <- function(input, output) {
  output$plot<-renderPlotly({
    p <- ggplot(ToothGrowth, aes(x = factor(dose), y = len)) + 
      geom_boxplot() +
      labs(title = "维生素C对牙齿生长的影响",
           subtitle = "按剂量分组的长度分布")
    
    # 先把选中的多个区间合并为单个字符串，用顿号分隔
    selected_intervals <- paste(input$intervals_A, collapse = "、")
    ggplotly(p) %>% 
      layout(title = list(text = paste0('维生素C对牙齿生长的影响',
                                        '<br>',
                                        '<sup>',
                                        '按剂量分组的长度分布，选中区间：',
                                        selected_intervals,
                                        '</sup>')))
  })
}

shinyApp(ui, server)

核心修改点 #

• 新增selected_intervals变量，用paste(..., collapse = "、")将多选的区间向量合并为单个字符串
• 把所有标题文本片段放到同一个paste0中拼接，删除多余的双引号，保证生成的是单个合法HTML格式的标题字符串
• 修正了文本拼接的逻辑错误，避免生成多个独立文本片段导致的解析异常

修改后选中的区间会正常显示在副标题位置，切换选中选项时副标题会同步更新。

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