Как я могу визуализировать фактические даты из графиков ggplotly () в R вместо числово-преобразованных?

Question

Я хочу визуализировать фактический формат дат вместо чисел (с трансформацией по умолчанию), используя графики ggplotly, когда я помещаю курсор на точки данных. Заранее спасибо!

Вот простой пример:

 require(plotly)
 require(ggplot2)
    x <- c("01/01/2007","04/03/2008","28/11/2008","13/06/2009")
    y <- c(25, 50, 75, 100)
    x_lab <- "date"
    y_lab <- "score"
    (mydata <- as.data.frame(cbind(x,y)))
    mydata$x <- as.Date(mydata$x, "%d/%m/%Y")
    ggplot(mydata, aes(x=x, y=y)) +
      geom_point()
   ggplotly()

Answer 1

Использование функции plot_ly () вместо ggplotly () решает проблему !!

Вот код с теми же данными:

require(ggplot)
require(plotly)
x <- c("01/01/2007","04/03/2008","28/11/2008","13/06/2009")
y <- c(25, 50, 75, 100)
x_lab <- "date"
y_lab <- "score"
mydata <- as.data.frame(cbind(x,y))
mydata$x <- as.Date(mydata$x, "%d/%m/%Y")
str(mydata)
plot_ly(mydata, x = ~x, y = ~y, type = 'scatter', mode = 'markers',
        marker = list(size = 10))

Кроме того, это можно сделать с помощью ggplotly!

require(ggplot)
require(plotly)
x <- c("01/01/2007","04/03/2008","28/11/2008","13/06/2009")
y <- c(25, 50, 75, 100)
x_lab <- "date"
y_lab <- "score"
mydata <- as.data.frame(cbind(x,y))
mydata$x <- as.Date(mydata$x, "%d/%m/%Y")
myplot <- ggplot(mydata, aes(x=x, y=y, label1=x, label2=y)) +
  geom_point()
ggplotly(myplot, tooltip = c("label1", "label2"))