R Shiny tabPanel无法显示DT及Plotly动态时序图实现求助

核心错误点 #

• Server端错误将renderDT嵌套在reactive函数内部，Shiny输出渲染无需外层包裹reactive
• filter函数中误用赋值符号<-替代比较符号==，导致过滤逻辑失效
• 列名大小写/格式不匹配：原数据日期列为Date、管制站列为Control Point、出入境列为Arrival / Departure，代码中用了小写别名导致无法匹配

修复后的Server代码 #

server <- function(input, output, session) {
  output$plot_hk <- DT::renderDT({
    df %>% 
      mutate(Date = as.Date(Date, format = "%d-%m-%Y")) %>%  # 统一日期格式
      filter(
        Date >= input$date_range[1],
        Date <= input$date_range[2],
        `Control Point` == input$control_point,
        `Arrival / Departure` == input$arrival_departure
      ) %>%
      select(Date, `Control Point`, `Arrival / Departure`, `Hong Kong Residents`)  # 筛选需展示的列
  })
}

步骤1：加载依赖包 #

在代码开头添加Plotly库：

library(plotly)

步骤2：更新UI布局 #

在tabsetPanel中为需要展示动态图的标签页添加Plotly输出容器，以"Mainland Visitors"为例：

tabPanel('Mainland Visitors', plotlyOutput('plot_mainland'))

步骤3：Server端编写响应式渲染逻辑 #

基于ggplot转换的实现方式

server <- function(input, output, session) {
  # 保留修复后的DT代码...
  
  # 动态Plotly时序图
  output$plot_mainland <- renderPlotly({
    plot_data <- df %>%
      mutate(Date = as.Date(Date, format = "%d-%m-%Y")) %>%
      filter(
        Date >= input$date_range[1],
        Date <= input$date_range[2],
        `Control Point` == input$control_point,
        `Arrival / Departure` == input$arrival_departure
      ) %>%
      gather(Item, Count, `Hong Kong Residents`:Total)  # 宽表转长表适配分组展示
    
    # 先构建ggplot对象，再转换为交互式Plotly图表
    p <- ggplot(plot_data, aes(
      x = Date,
      y = Count,
      color = `Arrival / Departure`
    )) +
      geom_line() +
      scale_x_date(date_labels = "%y/%m", date_breaks = "3 month") +
      facet_wrap(~ Item) +
      theme(legend.position = "bottom") +
      ggtitle(paste("Traffic Data of", input$control_point))
    
    ggplotly(p)
  })
}

Plotly原生语法实现方式（可选）

如果不需要依赖ggplot，可直接用Plotly原生函数构建：

output$plot_mainland <- renderPlotly({
  plot_data <- df %>%
    mutate(Date = as.Date(Date, format = "%d-%m-%Y")) %>%
    filter(
      Date >= input$date_range[1],
      Date <= input$date_range[2],
      `Control Point` == input$control_point,
      `Arrival / Departure` == input$arrival_departure
    ) %>%
    gather(Item, Count, `Hong Kong Residents`:Total)
  
  plot_ly(plot_data, x = ~Date, y = ~Count, color = ~`Arrival / Departure`, type = 'scatter', mode = 'lines') %>%
    facet_wrap(~Item) %>%
    layout(
      title = paste("Traffic Data of", input$control_point),
      xaxis = list(tickformat = "%y/%m", dtick = "M3"),
      legend = list(orientation = 'h', y = -0.2)
    )
})

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