Interactive plots

Interactive scatterplot

p <-
  mpg %>% 
  ggplot(aes(x = displ, y = hwy, color = drv)) +
    geom_jitter() +
    geom_smooth()

plotly::ggplotly(p)

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

More expressive tooltip

p <-
  mpg %>% 
  ggplot(aes(x = displ, y = hwy, extra1 = manufacturer, extra2 = model)) +
    geom_jitter()

plotly::ggplotly(p)

Barplot

p <-
  mpg %>% 
  ggplot(aes(x = drv)) +
    geom_bar()

plotly::ggplotly(p)