%>% layout(...)
plot_ly(data = swiss, x = ~Catholic, y = ~Fertility, type = "scatter", mode = "markers")