legend.position always 'right' in ggplotly, except when legend.position = 'none'

When plotting a ggplot object using ggplotly, legend.position is always 'right' even if I chose legend.position = 'top' or any of the other options. It only works as it is supposed to when I specify legend.position = 'none' that it actually disappears.

ggplot displays the legend fine.

library(tibble)
library(ggplot2)

df <- tibble(year = c(2000, 2001, 2000, 2001),
             freq = c(3, 4, 2, 9),
             clas = c("A", "A", "B", "B"))

ggplot(df, aes(year, freq, color = clas)) +
  geom_line() +
  theme(legend.position = 'top')

When I try this instead:

library(plotly)

ggplotly(
ggplot(df, aes(year, freq, color = clas)) +
  geom_line() +
  theme(legend.position = 'top')
)

I get the legend on the right, as I show in this shiny app.

从使用 ggplotly、ggplot2、tibble 和 theme(legend.position = 'top') 的可复现 R 示例开始，然后将渲染后的图例位置与 ggplot 输出进行比较。当 ggplotly 遵循 top 和其他受支持的图例位置，同时仍对 legend.position = 'none' 隐藏图例时，即表示完成。