ggplotly（）不在x轴上放置日期

Question

我有一个需要交互的绘图，所以我试图使用ggplotly()函数对其进行绘图。但是，x轴获取的值从18k（自1970-01-01起的天数）开始，而不是日期。我无法使用普通的plotly()函数，因为对于ggplotly()支持但plotly()不支持的不同几何图形，绘图过于复杂。如何获取x轴上的日期？

library(ggplot2)
library(plotly)

data <- data.frame(x = runif(10) + 1:10,
                   date = seq.Date(as.Date("2019-07-01"),
                                   as.Date("2020-04-01"),
                                   by = "months"))

p <- ggplot(data, aes(x = date, y = x)) +
      geom_line()

ggplotly(p)

Answer 1

使用缩放功能

您可以向绘图添加x缩放功能，如下所示：

library(ggplot2)
library(plotly)
data <- data.frame(x = runif(10) + 1:10,
                   date = seq.Date(as.Date("2019-07-01"),
                                   as.Date("2020-04-01"),
                                   by = "months"))

p <- ggplot(data, aes(x = date, y = x)) +
  geom_line() +
  scale_x_date(date_labels = "%Y/%m/%d")
ggplotly(p) 

希望这会有所帮助。