Расположение выпадающего в сюжет

Question

Я хочу расположить выпадающее меню под легендой. Однако в зависимости от того, насколько большой график с точки зрения разрешения, plotly меняет положение этого раскрывающегося списка (см. Загруженные изображения).

Первый график показывает результат, как он выглядит в маленькой Rstudio Сюжетная вкладка. Вторая показывает, насколько далеко выпадет выпадающий вправо, если я переключусь в полноэкранный режим.

Как я могу исправить положение выпадающего меню? Любое решение приветствуется, будь то html, R или что-то еще

Ниже вы можете найти код, который я использовал для создания графиков:

library(plotly)
x <- seq(-2 * pi, 2 * pi, length.out = 1000)
df <- data.frame(x, y1 = sin(x), y2 = cos(x),tan_h=tanh(x))

p <- plot_ly(df, x = ~x) %>%
  add_lines(y = ~y1, name = "sin") %>%
  add_lines(y = ~y2, name = "cos") %>%
  add_lines(y = ~tan_h, name='tanh',visible=FALSE) %>%
  layout(
    title = "Drop down menus - Styling",
    xaxis = list(domain = c(0.1, 1)),
    yaxis = list(title = "y"),
    updatemenus = list(
      list(
        y = 0.7,
        x = 1.1,
        buttons = list(
          list(method = "restyle",
               args = list("visible", list(TRUE, TRUE, FALSE)),
               label = "Cos"),

          list(method = "restyle",
               args = list("visible", list(TRUE, FALSE, TRUE)),
               label = "Tanh"),

          list(method = "restyle",
               args = list("visible", list(TRUE, TRUE, TRUE)),
               label = "All")

          ))
    )
  )