Добавление второй оси на график без одновременного добавления трассировки

Question

Поскольку ggplotly не поддерживает ggplot2 sec.axis ( Добавление второй оси Y на ggplotly ), я хочу добавить вторую ось к объекту plotly. Однако я не могу sh добавить новую трассировку.

Пример:

library(plotly)
ay <- list(
  tickfont = list(color = "red"),
  overlaying = "y",
  side = "right",
  title = "second y axis"
)
p <- plot_ly() %>%
  add_lines(x = ~1:3, y = ~10*(1:3), name = "slope of 10") %>%
  add_lines(x = ~2:4, y = ~1:3, name = "slope of 1", yaxis = "y2") %>%
  layout(
    title = "Double Y Axis", yaxis2 = ay,
    xaxis = list(title="x")
  )

p

Как мне сделать sh, показывая yaxis = "y2" без add_lines или добавляя какие-либо другой след?

Answer 1

Один из способов добиться этого - сделать то, что вы сделали, и изменить цвет того, что вы добавляете для второй оси, на «белый»:

library(plotly)
ay <- list(
  tickfont = list(color = "red"),
  overlaying = "y",
  side = "right",
  title = "second y axis"
)
p <- plot_ly() %>%
  add_lines(x = ~1:3, y = ~10*(1:3), name = "slope of 10") %>%
  add_lines(x = ~2:4, y = ~1:3, color = I("white"), name = "", yaxis = "y2") %>%
  layout(
    title = "Double Y Axis", yaxis2 = ay,
    xaxis = list(title="x")
  )
p