Shiny ggplot plot brush limits with x axis as date

问题

I am trying to replicate this example provided on the rstudio page.

gallery/plot-interaction-zoom

The problem is that I need to use date (as.Date %d/%m/%Y) for the x axis and When zooming on the plot I get this error

Invalid input: date_trans works with objects of class Date only

library(ggplot2)
library(scales)
library (grid)
library (DT)
ui <- fluidPage(
fluidRow(
column(width = 12, class = "well", h4("Left plot controls right plot"),
fluidRow(column(width = 6, plotOutput("plot1", height = 300,
brush = brushOpts(
id = "plot2_brush",
esetOnNew = TRUE)))
,
column(width = 6,plotOutput("plot2", height = 300,
click = "plot_click",
dblclick = dblclickOpts(
id = "plot_dblclick")))
,
fluidRow(column(width = 12, dataTableOutput("selected_rows")))
))))

Date <- c("01/01/2014","01/01/2014","01/01/2014","01/01/2014")
Sevdow <- c(10,30,10,50)
articles<-as.data.frame(cbind(dates, Sevdow))
articles$Sevdow<-as.numeric(tt$Sevdow)
articles$Date<-as.Date(tt$dates, format="%d/%m/%Y")

server <- function(input, output) {
ranges2 <- reactiveValues(x = NULL, y = NULL
output$plot1 <- renderPlot({
ggplot(articles, aes(Date, Sevdow)) +
geom_point()
})

output$plot2 <- renderPlot({
ggplot(articles, aes(Date, Sevdow)) +
geom_point() +
coord_cartesian(xlim = ranges2$x, ylim = ranges2$y)
})

observe({
brush <- input$plot2_brush
if (!is.null(brush)) {
ranges2$x <- c(brush$xmin, brush$xmax)
ranges2$y <- c(brush$ymin, brush$ymax)

} else {
ranges2$x <- NULL
ranges2$y <- NULL
}
})

output$selected_rows <- renderDataTable({
datatable(
nearPoints(articles, input$plot_click, threshold = 10, maxpoints = 1000,
addDist = FALSE, allRows = FALSE))
})
}

shinyApp(ui, server)

回答1:

Hello you need to convert range2$x to Date :

output$plot2 <- renderPlot({
  if (!is.null(ranges2$x)) {
    ranges2$x <- as.Date(ranges2$x, origin = "1970-01-01")
  }
  ggplot(articles, aes(Date, Sevdow)) +
    geom_point() +
    coord_cartesian(xlim = ranges2$x, ylim = ranges2$y)
})

And for nearPoints you need to convert articles$Date to numeric :

output$selected_rows <- renderDataTable({
  articles$Date <- as.numeric(articles$Date)
  nearPoints(articles, coordinfo = input$plot_click, xvar = "Date", yvar = "Sevdow", 
             threshold = 10, maxpoints = 1000,
             addDist = FALSE, allRows = FALSE)
})

来源：https://stackoverflow.com/questions/34058001/shiny-ggplot-plot-brush-limits-with-x-axis-as-date

标签

ggplot2

Shiny