Положение оси в сюжете, созданном из 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)