expect_identical(s$data[[2]]$xaxis, s$layout[["yaxis2"]][["anchor"]]) expect_identical(s$data[[2]]$yaxis, s$layout[["xaxis2"]][["anchor"]]) p1 <- plot_ly(x = c(1, 2 ...