如何让Shiny仪表板初始加载全部数据再支持情感筛选？

你只需要做两处修改就能实现需求：

1. 给情感选择器添加「全部」默认选项 #

修改UI里的selectInput，添加一个代表所有情感的选项，并设置为默认选中项：

selectInput("sentiment", label = "Select sentiment", 
            choices = c("All" = "all", unique(DF$sentiment)),
            selected = "all")

2. 调整服务器端的筛选逻辑 #

在响应式数据过滤部分，判断如果用户选择的是「all」，就跳过情感筛选，否则按选中的情感过滤：

filtered_data <- reactive({
  data <- DF
  # 情感筛选逻辑
  if(input$sentiment != "all"){
    data <- data %>% filter(sentiment == input$sentiment)
  }
  # 日期范围筛选逻辑
  data %>% filter(Date >= input$daterange[1] & Date <= input$daterange[2])
})

修改后的完整代码 #

library(shiny)
library(lubridate)
library(DT)
library(dplyr) # 加载dplyr以支持管道和筛选函数

DF = data.frame(ID = c ("1","2","3","4","5"),
                product = c("A","B","C","A","C"),
                sentiment = c("good","medium","bad","medium","bad"),
                online = c(1,0,1,1,0),
                ooh = c(0,1,0,1,1),
                Date= ymd(c("2020-08-11", "2020-09-16","2021-10-20", "2020-11-25", "2022-11-27")), 
                event = c(1,1,0,0,0))


# Define UI for application that draws a histogram
ui <- fluidPage(
  
  # Application title
  titlePanel("Product Sentiment"),
  
  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
      selectInput("sentiment", label = "Select sentiment", 
                  choices = c("All" = "all", unique(DF$sentiment)),
                  selected = "all"), 
      dateRangeInput("daterange", h5("Date range"), 
                     start = ymd("2020-08-11"), 
                     end = ymd("2022-09-06"), 
                     min = min(DF$Date), 
                     max = max(DF$Date),
                     format = "yyyy-mm-dd"
      ) 
    ),
    
    # Show a plot of the generated distribution
    mainPanel(
      dataTableOutput("DT_Table")
    )
  )
)

# Define server logic required to draw a histogram
server <- function(input, output) {
  
  filtered_data <- reactive({
    data <- DF
    # 情感筛选：选择"All"时不筛选
    if(input$sentiment != "all"){
      data <- data %>% filter(sentiment == input$sentiment)
    }
    # 日期范围筛选
    data %>% filter(Date >= input$daterange[1] & Date <= input$daterange[2])
  })
  
  output$DT_Table <- DT::renderDataTable(
    filtered_data(),
    options = list(pageLength = 5, autoWidth = TRUE, dom='t')
  )
  
}

# Run the application 
shinyApp(ui = ui, server = server)

额外说明：

• 代码里给DF$Date用ymd()转成了日期类型，避免日期筛选时可能出现的类型不匹配问题
• 确保加载了dplyr包，因为原代码里用到了管道符和filter函数

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