如何在RShiny中基于ifelse条件展示对应类型的单张图表？

核心错误点 #

• 类型判断对象错误：input$x_varb是选中的变量名字符串，并非数据集内的对应列，is.factor(input$x_varb)永远返回FALSE，导致代码始终渲染箱线图，不会触发散点图逻辑
• 逻辑写反：需求为「X为分类变量时输出箱线图，X为连续变量时输出散点图」，原代码的判断分支返回的图表类型完全相反

修正后完整代码 #

ui <- fluidPage(
  # 选择连续变量作为Y轴
  selectInput("y_varb", label="Y轴变量",choices=names(data)[c(-1,-2,-14,-15,-16,-17)]),
  # 选择任意变量作为X轴
  selectInput("x_varb", label="X轴变量", choices=names(data)),
  # 支持双击重置的绘图输出
  plotOutput("plot", dblclick = "plot_reset")
)

server <- function(input, output, session) {
  remaining <- reactive({
    names(data)[-match(input$y_varb,names(data))]
  })
  
  observeEvent(remaining(),{
    updateSelectInput(session, inputId = "x_varb", choices = remaining())
  })
  
  output$plot <- renderPlot({
    # 提取数据集内的X列判断类型
    x_column <- data[[input$x_varb]]
    base_plot <- ggplot(data, aes_string(x = input$x_varb, y = input$y_varb))
    # 分类变量（因子/字符）用箱线图，连续变量用散点图
    if(is.factor(x_column) || is.character(x_column)){
      base_plot + stat_boxplot()
    } else {
      base_plot + geom_point()
    }
  })
}

优化说明 #

• server参数直接声明session即可，无需调用getDefaultReactiveDomain()，写法更符合Shiny规范
• 无需提前生成两个完整的ggplot对象，根据判断结果追加对应图层即可，减少冗余代码
• 新增字符型分类变量的判断，避免字符类的分组变量误渲染为散点图

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