``` r p <- ggplot(data = mtcars, aes(wt, mpg)) + geom_point(alpha = 0.3) + geom_smooth() ggplotly(p) ```