web-dev-qa-db-ja.com

ggplotlyのツールチップの日付形式

インタラクティブな時系列プロットを表示するために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]
rshinyplotlyr-plotly
17
user5831311

ツールチップでtextのみを使用する場合、textに渡すggplot要素を使用して、より複雑なツールチップをレンダリングできます。 as.Dateを呼び出して、いくつかの<br> htmlタグを次のように使用するだけです。

# 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"))

お役に立てば幸いです。

21
jadianes