``` r library(plotly) ggplot(economics, aes(date, unemploy)) + geom_point() + geom_smooth() ggplotly() ```