从ggplot创建的绘图中的轴位置

Question

ggplot使我可以控制x轴标签的位置并在x轴上断开，但是当我将ggplot对象传递给ggplotly函数时，所得的plotly对象将失去格式。

library(plotly)

df <- data.frame(
Date = seq(as.Date("2017-01-01"), as.Date("2020-01-01"), by = 30),
Value = rnorm(37)
)

p1 = ggplot(df) + geom_point(aes(x=Date, y = Value)) + 
scale_x_date(position = "top", date_breaks = "1 year", date_minor_breaks = 
"3 months")

ggplotly(p1)

使用上面提到的代码，x轴值仍在ggplotly图的底部绘制，并且每3个月的折线也未显示。

Answer 1

您可以尝试以下方法：

f <- list(
side = "top"
)

ggplotly(p1) %>% layout(xaxis = f)