Plotly in R part 3 of 8