小编mkb*_*123的帖子

我正在尝试弄清楚如何使 ggplot 输出对我闪亮的应用程序的 UI 中的 varSelectInput 函数做出反应。例如，我希望能够选择两个不同的变量并将它们绘制为彼此的函数。我在本示例中使用了航班数据集，即选择 arr_time 和 dep_delay 并在 x 轴上查看 arr_time ，在 y 轴上查看 dep_delay 。

DateRangeInput 目前没有任何功能，但我最终希望能够过滤出 ggplot 输出中按月绘制的结果。

library(tidyverse)
library(shiny)
flights <- nycflights13::flights

# Define UI for application
ui <- navbarPage(
    "NYC Flights",

    tabPanel(
        "Flights",
        sidebarPanel(
            h4("Flight Inputs"),
            selectInput(
                "Airline_Select",
                label = "Select Airline",
                choices = flights$Carrier,
                selected = TRUE
            ),
            dateRangeInput(
                "dates",
                label = "Dates",
                start = min(flights$Month),
                end = max(flights$Month),
                min = min(flights$Month),
                max = max(flights$Month)
            ),
            varSelectInput(
                "X_Axis",
                label = "Select Variable …