plot_ly(...) %>% add_trace(...) %>% add_layout(...)
p <- plot_ly(...)
p <- add_trace(p, ...)
p <- add_layout(p, ...)
p