Shiny应用中图表日期筛选失效，图表空白问题求助

问题根源 #

你的代码中，数据框data_input的y列是MM/DD/YYYY格式的字符串（比如"6/11/2024"），但as.Date()默认采用YYYY-MM-DD的解析规则，直接转换会生成NA值。当筛选条件基于这些NA值判断时，所有行都会被排除，最终返回空数据框，导致图表显示空白。

而硬编码字符串比较能“正常运行”只是巧合——字符串是按字符顺序比较的，刚好和日期范围的逻辑一致，但这不是正确的日期处理方式。

修复方案 #

修改日期解析逻辑，指定正确的格式参数，确保y列能被正确转换为Date类型：

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

ui <- fluidPage(
  dateRangeInput('date_range', 'Pick Range',
                 start = '2024-06-11',
                 end = '2024-06-13',
                 min = '2024-06-11',
                 max = '2024-06-15'),
  actionButton('run', 'Run'),
  plotOutput('plot')
)

server <- function(input,output){

data_input <- structure(list(length = 0:4, sec = c("00:00.0", "00:01.0", "00:02.0", "00:03.0", "00:04.0"), time = c(30L, 40L, 50L, 60L, 70L), colors = c(5L, 5L, 5L, 5L, 5L), y = c("6/11/2024", "6/12/2024", "6/13/2024", "6/14/2024", "6/15/2024")), row.names = c(NA, 5L), class = "data.frame")

# 提前将y列转换为Date类型，指定正确格式
data_input <- data_input %>% mutate(y = as.Date(y, format = "%m/%d/%Y"))

data_filtered <- eventReactive(input$run,
  filter(data_input, y >= as.Date(input$date_range[1]) & y <= as.Date(input$date_range[2]))
)

output$plot <- renderPlot(
ggplot(data_filtered(), aes(x = y, y = time))+geom_point()
)
}

shinyApp(ui = ui, server = server)

关键修改点 #

• 在mutate中用as.Date(y, format = "%m/%d/%Y")将y列转换为Date类型，%m代表两位月份，%d代表两位日期，%Y代表四位年份。
• 后续筛选直接用转换后的Date类型列和input$date_range的Date值比较，逻辑更可靠。

额外建议 #

• 处理日期时尽量提前将字符串转换为Date类型，避免重复转换和格式错误。
• 可以用str(data_input$y)验证转换结果，确保没有NA值。

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