R plotly 多线图也面临多个 y 轴的问题

Question

我在下面共享的代码应该有三行，其中前两行在第一个 Y 轴上引用，第三行在右侧的第二个 y 轴上引用阴谋。 但是，出了点问题。

df = data.frame(AS_OF=as.Date(c("2006-10-31", "2006-11-30", "2006-12-29", "2007-01-31", "2007-02-28", "2007-03-30")), 
                VALUE1=c(62.790, 63.890, 60.160, 70.425, 67.675, 71.175), 
                VALUE2=c(62.79000, 63.34000, 62.28000, 64.31625, 64.98800, 66.01917), 
                VALUE3=c(0.000,  1.100, -2.630,  7.635,  4.885,  8.385)
)

plt <- plot_ly()

plt <- plt %>% add_lines(data=df
                         , x = df[['AS_OF']]
                         , y = df[['VALUE1']]
                         , type='scatter'
                         , mode = 'lines+markers'
                         , name='VALUE1'
                         , inherit = F
)

plt <- plt %>% add_lines(data=df
                         , x = df[['AS_OF']]
                         , y = df[['VALUE2']]
                         , type='scatter'
                         , mode = 'lines+markers'
                         , name='VALUE2'
                         , inherit = F
)


plt <- plt %>% add_lines(data=df
                         , x = df[['AS_OF']]
                         , y = df[['VALUE3']]
                         , type='scatter'
                         , mode = 'lines+markers'
                         , inherit = F
                         , name='VALUE3'
                         , yaxis= 'y2'
)

plt <- plt %>% layout(yaxis2 = list(overlaying = "y"
                                    , side = "right"
                                    , title = 'second_y_axis'
)
) 
plt

不知何故，应该代表 VALUE1 列的线显示在图例中，但未显示在图上。

Answer 1

您的代码运行良好。痕迹没有丢失。它只是被隐藏了，因为它与其他痕迹之一走的是相同的路线。我清理了您的代码并更改了您的示例数据以使其可见：

library(plotly)

df = data.frame(
  AS_OF = as.Date(c("2006-10-31", "2006-11-30", "2006-12-29", "2007-01-31", "2007-02-28", "2007-03-30")),
  VALUE1 = c(62.790, 63.890, 60.160, 70.425, 67.675, 71.175),
  VALUE2 = c(62.79000, 63.34000, 62.28000, 64.31625, 64.98800, 66.01917),
  VALUE3 = c(0.000,  5.100,-4.630,  0.635,  4.885,  -2)
)

plt <- plot_ly(data = df, type = 'scatter', mode = 'lines+markers')

plt <- plt %>% add_lines(
  x = ~ AS_OF,
  y = ~ VALUE1,
  name = 'VALUE1'
)

plt <- plt %>% add_lines(
  x = ~ AS_OF,
  y = ~ VALUE2,
  name = 'VALUE2'
)

plt <- plt %>% add_lines(
  x = ~ AS_OF,
  y = ~ VALUE3,
  name = 'VALUE3',
  yaxis = 'y2'
)

plt <- plt %>% layout(yaxis2 = list(
  overlaying = "y",
  side = "right",
  title = 'second_y_axis'
))

plt