Я использую ggplotly, чтобы показать интерактивный график временных рядов. Ось x находится в формате даты, но подсказка инструмента зависания в plotly преобразует формат даты в числовое значение (скриншот прилагается). Любые идеи о том, как получить дату для показа в качестве подходящей даты в подсказке?
Ниже приведен короткий фрагмент кода:
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]