I have this basic script:
mtcars %>% plot_ly() %>% add_trace(x = ~mpg, y = ~wt, type = \'scatter\', mode = \'markers\' ) %>% layout(yaxis2 = li