如何在Shiny中创建响应式Base R箱线图？非数值参数报错如何解决

• UI端selectInput的choices参数配置错误：你当前设置choices = df，会把数据框的所有单元格值作为下拉选项，而非你需要的列名，导致用户选择的返回值本身就不符合预期。
• 服务端获取的input$variable_choice是字符串类型，无法直接作为绘图函数的数值参数：input$variable_choice得到的是"pain_severity"这类字符值，不是数据框中对应的数值列向量，直接传给boxplot()和mean()时，函数识别到非数值输入就会抛出对应报错。

首先修改UI端selectInput的配置，传入列名作为可选值：

selectInput(inputId = "variable_choice", 
            label = "Variable", 
            choices = names(df), 
            selected = "pain_severity")

然后修改服务端代码，将字符串转换为数据框对应的数值列再绘图：

server <- function(input, output, session) {
  output$boxplot <- renderPlot({
    # 从数据框中提取用户选择的列的数值向量
    target_col <- df[[input$variable_choice]]
    boxplot(target_col, 
            main = "", xlab="", ylab = "", horizontal = TRUE)
    points(mean(target_col, na.rm = TRUE), 
           1, 
           col = "red")
  })
}

不需要，使用Base R的绘图函数完全可以实现该需求，ggplot只是可选的实现方案，不是必须依赖。

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