Changed ggplot2 to plotly