Shiny应用变量创建与绘图：选择自定义列d时报错排查

核心错误点 #

1. 判断条件不匹配：
   你的selectizeInput中，选项"D"对应的值是"d"（choices = c("D"="d")），但reactive_df里的判断逻辑写的是input$selection == "D"，这永远不会触发生成d列的分支。当用户选择"D"时，reactive_df()仍然返回原始的df3，而df3中没有d列，因此ggplot会因找不到目标列报错。

2. 数据结构不一致（潜在体验问题）：
   生成d列时，分组汇总后的数据集只有3行（每个rand对应一个均值），而原始df3有30行。这不会直接导致报错，但切换选项时图表点数量会突变，体验不够流畅。

修复后的完整代码 #

library(shiny)
library(tidyverse)

df3 <- tibble("rand"=rep(1:3, times = 10),
              "a"= rnorm(30),
              "b" = rgamma(30, 1,2),
              "c"= rpois(30,5))


ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectizeInput("selection", "Select a letter",
                     choices = c("A"="a","B"="b","C"="c","D"="d"))
      
    ),
    mainPanel(
      plotOutput("plot"),
      tableOutput("table")
    )
    
  )
)

server <- function(input, output){
  reactive_df<- reactive({
    # 修正判断条件，匹配input$selection的实际值"d"
    if(input$selection == "d"){
      df3 %>% group_by(rand) %>% 
        summarise(d = mean(a))
    }else{
      # 过滤列，让返回数据集结构和d列场景一致
      df3 %>% select(rand, all_of(input$selection))
    }
  })
  output$table <- renderTable({
    reactive_df()
  })
  output$plot <- renderPlot({
    ggplot(reactive_df())+
      # 用.data[[动态引用列，替代不安全的aes_string
      aes(x = rand, y = .data[[input$selection]])+
      geom_point()
  })
}

shinyApp(ui, server)

额外优化说明 #

• 替换aes_string为.data[[input$selection]]：这是tidyverse推荐的动态列引用方式，避免字符串解析带来的潜在问题，代码更安全规范。
• 选择a/b/c时过滤列：让返回的数据集始终只保留rand和选中列，和d列场景的结构统一，图表显示更连贯。

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