Shiny应用无报错但输出空白 日期筛选后无法渲染航班折线图

你的Shiny应用启动无报错但主面板空白，核心是三个低级错误导致的，改完即可正常出图：

1. 输出ID不匹配：UI里plotOutput绑定的输出ID是date，但server端你把绘图结果存在了output$plot下，Shiny找不到对应要渲染的内容，所以面板空白。也正因为renderPlot里的代码压根没被执行，所以后续的语法错误也没触发报错。另外date同时是你日期选择器的inputID，重名很容易引发逻辑冲突。
2. ggplot语法括号错位：你把+geom_line()图层写在了aes()的括号内部，属于无效语法，就算ID匹配也无法正常绘图。
3. filter语句末尾多了一个冗余逗号，部分dplyr版本下会导致筛选结果异常。

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

zhairport<-read_xlsx("airport.xlsx")
# 提前将date列转为Date格式，避免重复计算提升性能，同时x轴不会显示冗余的时分秒
zhairport$date <- as.Date(zhairport$date)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      dateRangeInput("date_range", "Choose timeframe", 
                     start="2019-01-01", end="2020-12-31",
                     min="2019-01-01",max="2020-12-31")
    ),
    mainPanel(plotOutput("flight_plot"))
  )
)

server<-function(input, output, session){
  subdata<-reactive({
    zhairport %>%
      filter(
        date >= input$date_range[1],
        date <= input$date_range[2]
      )
  })
  output$flight_plot<-renderPlot({
    ggplot(subdata(), aes(x=date, y=flights)) +
      geom_line(linewidth=1, color="#2c3e50") +
      labs(x="日期", y="日航班量", title="选定时间段机场日航班量变化") +
      theme_bw()
  })
}

shinyApp(ui = ui, server = server)

• 重命名了输入、输出控件的ID，彻底避免重名冲突，保证UI和server的ID一一对应
• 修正了ggplot的括号错位问题，将geom_line作为独立图层添加到ggplot对象中
• 删除了filter语句末尾的冗余逗号
• 额外做了一点体验优化：提前做日期格式转换、给折线图加了基础样式和轴标签，如果不需要可以直接删掉geom_line的样式参数、labs和theme部分，不影响核心绘图功能。

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