反应性DateRangeInput为闪亮

Question

我正在自学Shiny，并且卡在ggplot2图上，无法使用反应性dateRangeInput作为我的x轴。 我有几个问题：

1. 有没有一种方法可以使用我的数据框来获取日期范围输入的最小值和最大值，而不必对其进行硬编码，因此当我向数据框添加更多推文时，不必每次都对这些值进行硬编码了吗？
2. 我收到错误消息： Aesthetics must be either length 1 or the same as the data (33108): x, y当我尝试将input $ date用作我的aes时Aesthetics must be either length 1 or the same as the data (33108): x, y （x = input $ date ...

 library(shiny) library(tidyr) library(ggplot2) tweets <- read.csv(file.choose()) colnames(tweets)[1] <- "Content" tweets <- separate(tweets, created_at, c("Date", "Time"), sep = " ") tweets$Date <-as.Date(tweets$Date, "%m/%d/%Y") ui <- fluidPage( dateRangeInput(inputId = "date", strong("Date Range"), start = "2009-05-04", end = "2018-02-28", min = "2009-05-04", max ="2018-02-28" ), plotOutput("Graph") ) server <- function(input, output) { output$Graph <- renderPlot({ ggplot(tweets, aes(x = input$date, y = count)) + geom_bar(stat = "identity", position = "stack") + #scale_y_continuous(name = "Retweet Count", limits = c(0,370000), breaks=seq(0,370000,10000)) + theme(panel.background = element_rect(fill = "white", colour = "grey50")) }) } shinyApp(ui = ui, server = server) 

Answer 1

对于第一个问题，您可以使用updateDateRangeInput参见此处 。 因此，您可以在server功能之外的推文中找到最小和最大日期，然后将它们传递给输入。 确保添加session到你的函数：

server <- function(input, output, session) {

   observe({
    updateDateRangeInput(session, "date", min = myMinDate, max = myMaxDate)
   })
}

对于第二个问题，您需要使用aes_string将变量传递给ggplot，请参见here或here 。

Answer 2

@ Pete900的答案很好地总结了updateDateRangeInput的用法，有关更多信息，您可以参考闪亮的文档的这一部分 。

关于您的第二个问题： input$date将返回长度为2的向量，其中第一个元素位于所选范围的下部，第二个元素位于所选范围的上部。 您很可能不会直接将其用作x美学，而是将其与此数据进行子集化，然后绘制新的子集数据。 你可以例如写

library(dpylr) # alternatevly library(tidyverse)
newtweets <- reactive({
filter(tweets, between(date ,input$date[1], input$date[2]))
})

然后，在您的ggplot中，使用newtweets()作为数据。

更新函数filter和between() （x的快捷方式是...大于...，然后小于...）来自包dplyr ，这对于处理数据帧和一部分可播放的包非常dplyr彼此非常好，称为tidyverse （请参阅此处 ）。

当您引用新创建的反应性对象newtweets() ，请确保不要忘记它，因为它现在是一个函数调用，可以在输入更改时使Shiny更新数据框。

更新资料

我在其中创建一些人工数据的完整工作示例：

library(shiny)
library(tidyverse)
library(lubridate)

# tweets <- read.csv(file.choose())

st <- ymd("2009-05-01")
en <- ymd("2018-02-28")
dates <- seq.Date(from = st, to = en, by = 1)
tweets <- tibble(date = dates, count = rnorm(length(dates), mean = 5, sd = 3))


ui <- fluidPage(
    dateRangeInput(inputId = "date",
                   strong("Date Range"),
                   start = "2009-05-04", end = "2018-02-28",
                   min = "2009-05-04", max ="2018-02-28" ),
    plotOutput("Graph")
)

server <- function(input, output) {

    newtweets <- reactive({
        filter(tweets, between(date ,input$date[1], input$date[2]))
    })

    output$Graph <- renderPlot({
        ggplot(newtweets(), aes(x = date, y = count)) +
            geom_bar(stat = "identity", position = "stack") +
            #scale_y_continuous(name = "Retweet Count", limits = c(0,370000), breaks=seq(0,370000,10000)) +
            theme(panel.background = element_rect(fill = "white", colour = "grey50"))
    })
}

shinyApp(ui = ui, server = server)