使用Shiny高亮条形图报错求助：ggplot2无法处理numeric类数据

我来帮你排查这个问题！你遇到的ggplot2 doesn't know how to deal with data of class numeric报错，核心原因是你的filtered()反应式函数返回的不是ggplot需要的完整数据框，而是一个单独的数值向量，这就导致ggplot无法读取映射所需的所有变量。

问题具体分析 #

原来的filtered()函数里，你只是给titanic_train$Specific赋值，但最后返回的是这个赋值操作的结果——也就是由0和1组成的数值向量，而非包含Embarked、Survived等变量的完整数据集。ggplot需要完整的数据来映射x、y、fill这些美学属性，只传一个向量肯定会出错。

修正后的完整代码 #

library(shiny)
library(ggplot2)
library(titanic)
library(dplyr)

UI <- fluidPage(
  # Application title
  titlePanel("Hello Shiny!"),
  sidebarLayout(
    sidebarPanel(
      # 移除Embarked中的NA选项，避免无效选择
      selectInput("specific_bar", "Pick bar to highlight:", 
                  choices = unique(na.omit(titanic_train$Embarked)))
    ),
    mainPanel(
      plotOutput("plot_nice")
    )
  )
)

Server <- function(input, output) {
  filtered <- reactive({
    # 使用mutate添加新列，返回带高亮标记的完整数据框
    titanic_train %>%
      mutate(Specific = ifelse(Embarked == input$specific_bar, 1, 0))
  })
  
  output$plot_nice <- renderPlot({
    ggplot(filtered(), aes(x = Embarked, y = Survived, fill = factor(Specific))) +
      geom_bar(stat = "identity") +
      # 自定义高亮颜色和标签，提升可视化效果
      scale_fill_manual(values = c("#cccccc", "#ff7f0e"), labels = c("普通条形", "高亮条形")) +
      labs(fill = "条形状态")
  })
}

shinyApp(ui = UI, server = Server)

关键修改点说明 #

1. 修复反应式函数返回值：用dplyr::mutate()给原数据集添加Specific列，确保filtered()返回的是包含所有所需变量的完整数据框，让ggplot能正常读取x、y、fill的映射变量。
2. 替换aes_string()为aes()：aes_string()已被软弃用，aes()是当前ggplot推荐的写法，更直观且不易出错。
3. 将Specific转为因子：把0/1的数值转为分类变量，让ggplot按分类逻辑处理填充颜色，高亮效果更清晰。
4. 优化选择框选项：移除Embarked中的NA值，避免用户选择无效选项。

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