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) 

这是输出：

希望这会有所帮助。