R Shiny响应式函数不生效，输入无法筛选数据应如何解决？

错误原因&修复方案 #

核心错误点 #

• 数据类型错误：使用cbind()生成的是矩阵而非数据框，数值列被强制转为字符型，filter()无法正常执行数值判断，且矩阵不支持$取列语法
• 筛选逻辑错误：滑块输入返回的是长度为2的区间向量，使用%in%仅会匹配刚好等于区间端点的数值，正确做法是用>=、<=做区间判断
• 语法错误：dplyr管道符书写错误，你写的%应为%>%
• 响应式逻辑错误：
  1. 方案3的绘图代码未放在renderPlotly()中，也未绑定到output对象，不会触发响应
  2. 方案3的响应式数据中三行filter单独执行，仅最后一行性别筛选生效，前两个筛选条件完全失效
• 初始值设置错误：性别复选框selected设为NULL，初始状态无勾选，筛选结果为空

完整可运行修正代码 #

首先确保你已安装加载所有依赖包：

library(shiny)
library(shinythemes)
library(shinyjs)
library(plotly)
library(dplyr)
library(ggplot2)

修正后的代码：

# 修正数据：用data.frame生成数据框而非矩阵
gender <- c("F", "M", "F", "M", "F", "M")
height_cm <- c(160, 170, 180, 165, 175, 185)
weight_kgs <- c(50, 60, 70, 55, 65, 75)
data <- data.frame(gender, height_cm, weight_kgs) # 这里改cbind为data.frame

############################ UI代码 ##############################
sidebar_panel <- sidebarPanel( 
  ## ------------------ 性别 --------------------
  checkboxGroupInput(inputId = "gender",
                     label = "Gender",
                     choices = unique(data$gender),
                     selected = unique(data$gender), # 初始全选，避免初始无数据
                     inline = FALSE),
  ## ------------------ 身高 -------------------- 
  sliderInput(inputId = "height",
              label = "Height (cm)",
              value = c(160, 180),
              min = 140,
              max = 250,
              step = 1),
  ## ------------------ 体重 -------------------- 
  sliderInput(inputId = "weight",
              label = "Weight (kg)",
              value = c(50, 100), # 初始值调整为覆盖所有样本体重
              min = 50,
              max = 250,
              step = 1)
)

#------------------------------------- 用户界面 ---------------------------------#
ui <- navbarPage(theme = shinytheme("united"),
                 title = 'Dashboard',
                 tabPanel('Measurements',
                          useShinyjs(),
                          sidebarLayout(
                            sidebar_panel,
                            mainPanel(
                              tabsetPanel(type = "tabs",
                                          tabPanel("Height & Weight",
                                                   fluidRow(
                                                     column(6, plotlyOutput("height_graph", height = "100%")),
                                                     column(6, plotlyOutput("weight_graph", height = "100%"))
                                                   )
                                          ),
                                          tabPanel("BMI",
                                                   plotlyOutput("gender_graph", height = "100%")
                                          ),
                                          tabPanel("Height vs Weight",
                                                   plotlyOutput("heightvsweight_graph", height = "100%")
                                          )
                              )
                            )
                          )
                 )
)

# 定义server对象
server <- function(input, output) {
  # 统一定义响应式筛选数据，所有输出复用即可
  filtered_data <- reactive({
    req(input$gender, input$height, input$weight)
    data %>%
      filter(weight_kgs >= input$weight[1], weight_kgs <= input$weight[2]) %>% # 区间筛选
      filter(height_cm >= input$height[1], height_cm <= input$height[2]) %>%
      filter(gender %in% input$gender)
  })
  
  output$height_graph <- renderPlotly({
    filtered_data() %>%
      plot_ly(x = ~height_cm) %>%
      add_histogram()
  })
  
  # 其余输出以此类推，直接调用filtered_data()即可
  output$weight_graph <- renderPlotly({
    filtered_data() %>%
      plot_ly(x = ~weight_kgs) %>%
      add_histogram()
  })
}

# 绑定UI和server对象
shinyApp(ui = ui, server = server)

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