``` library(plotly) library(ggplot2) p <- ggplot(mtcars) + geom_point(aes(disp, mpg)) + scale_x_continuous(position = 'top') ggplotly(p) ``` `scale_x_continuous(position = 'top'` should move x-labels to the top, however, it does nothing.