r plotly scatter plot with regression line