shiny - div - formato de fecha en la información sobre herramientas de ggplotly

tags$div shiny

Question

Estoy usando ggplotly para mostrar un gráfico interactivo de series de tiempo. El eje x está en formato de fecha, sin embargo, la punta de la herramienta emergente en plotly está convirtiendo el formato de fecha en un número (captura de pantalla adjunta). ¿Alguna idea sobre cómo hacer que la fecha se muestre como una fecha adecuada en la información sobre herramientas?

A continuación hay una pequeña parte del código:

 output$ggplot <- renderPlotly({

plotbycity<-df_postgres %>% group_by(city, date, bedroooms) %>%
  filter(city %in% input$checkGroup & bedroooms==input$radio) %>%
  summarise(count=n(),rent=median(rent)) %>%
  ungroup() 

plotbycity$date<-as.Date(plotbycity$date)


# Error handling
plotbycity<-plotbycity[!is.na(plotbycity$city),]
if (is.null(plotbycity)) return(NULL)

#plotbycity<-ungroup(plotbycity)
#dat <- dat[c("rent", "bedroooms", "date", "City")]
#dat <- melt(dat,id.vars=c("date", "City", "bedroooms"),na.rm=TRUE)   #

# draw the line plot using ggplot
 gg <-ggplot(plotbycity, aes(x = date, y = rent, group = city, color = city,
                             text = paste(''obs: '', count))) +
  geom_line() +
  ggtitle("Monthly Rents")
#   #theme_hc(bgcolor = "darkunica") +
#   #scale_fill_hc("darkunica")

 p <- ggplotly(gg, tooltip = c("x", "y", "text"))
 p[![enter image description here][1]][1]

Answer 1

Si usa solo text en su información sobre herramientas, puede renderizar una información sobre herramientas más compleja utilizando el elemento de text que pasa a ggplot . Solo necesita llamar a as.Date y usar algunas etiquetas html de la siguiente manera:

# draw the line plot using ggplot
gg <-ggplot(plotbycity, aes(x = date, y = rent, group = city, color = city,
    text = paste(''Rent ($):'', rent,
                 ''<br>Date: '', as.Date(date),
                 ''<br>Obs: '', count))) +
    geom_line() +
    ggtitle("Monthly Rents")

p <- ggplotly(gg, tooltip = c("text"))

¡Espero que ayude!