Missing traces when supplying a dual-axis plot to subplot()

If I do:

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")
)

It plots both axis.

but if I do:
subplot(p)
I loose the secondary axis.

This doesn't seem like the intended behavior of subplot unless I am missing something. Thanks!

提供された R の例を二軸プロットで再現し、その後 subplot() に渡します。subplot() のエントリポイントから開始し、セカンダリ y 軸がどのように処理されるかを追跡します。合成後も両方のトレースとセカンダリ軸が表示されたままになれば完了です。