example 1 plotly in R