使用闪亮的dateRangeInput在ggplot中设置轴限制

Question

我正在使用R / Shiny应用程序，该应用程序使用dateRangeInput的输出来设置ggplot2图中的x轴限制。 使用dateRangeInput子集数据可以很好地工作，但是我无法获得scale_x_date（或scale_x_continuous或scale_x_datetime）来识别dateRangeInput返回的日期。 我已经尝试过使用format（），as.Date，as.POSIXct，但是还没有遇到任何麻烦。 无论我尝试转换dateRangeInput的输出，还是得到：

Invalid input: date_trans works with objects of class Date only

这是我的问题的（希望）可复制的示例：

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

tp_date_pressed <- as.POSIXct(c("2016-01-01", "2016-03-01"))
sigma <- c(1, 1.5)
data <- data.frame(tp_date_pressed, sigma)

ui <- fluidPage(
    dateRangeInput('date',
        label = 'Date Range',
        start = Sys.Date() - 180, 
        end = Sys.Date(),
        max = Sys.Date()
    ),
    plotOutput("plot")
)

server <- function(input, output) {
  subData <- reactive({
    data %>%
      filter(
        as.Date(tp_date_pressed) >= as.Date(input$date[1]),
        as.Date(tp_date_pressed) <= as.Date(input$date[2])
      )
  })

  output$plot <- renderPlot({
    ggplot(subData(), aes(tp_date_pressed, sigma)) +
      geom_point() +
      scale_x_date(limits = input$date)
  })

}

shinyApp(ui = ui, server = server)

Answer 1

问题在于您的原始data ； 当ggplot需要Date对象时，使用了POSIXct。 如果您将其更改为

tp_date_pressed <- as.Date(c("2016-01-01", "2016-03-01"))

请注意，还有更多问题，因为scale_x_date期望两个值作为限制。 确保将其更改为

scale_x_date(limits = c(input$date[1], input$date[2]))

并感谢您提供可复制的示例。