如何使用shiny为时间序列设计反应式可视化图形？

install.packages("shiny")
library(shiny)

ui <- fluidPage(
  # 在这里定义用户界面组件
)

server <- function(input, output) {
  # 在这里定义服务器逻辑
}

shinyApp(ui, server)

library(shiny)

# 生成示例时间序列数据
data <- data.frame(
  date = seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by = "day"),
  value = rnorm(365)
)

ui <- fluidPage(
  titlePanel("时间序列可视化"),
  sidebarLayout(
    sidebarPanel(
      dateRangeInput("date_range", "选择日期范围：", start = min(data$date), end = max(data$date)),
      sliderInput("threshold", "阈值：", min = min(data$value), max = max(data$value), value = 0)
    ),
    mainPanel(
      plotOutput("time_series_plot")
    )
  )
)

server <- function(input, output) {
  # 反应式表达式：根据用户选择的日期范围和阈值，计算并绘制时间序列图形
  filtered_data <- reactive({
    subset(data, date >= input$date_range[1] & date <= input$date_range[2] & value >= input$threshold)
  })
  
  output$time_series_plot <- renderPlot({
    plot(filtered_data()$date, filtered_data()$value, type = "l", xlab = "日期", ylab = "值")
  })
}

shinyApp(ui, server)