``` r g <- ggplot(economics, aes(date, unemploy)) + geom_line() ```  vs ``` r ggplotly(g) ``` 
