gapminder.R

library("gapminder")
library("ggplot2")
library("plotly")

data(gapminder, package = "gapminder")
g = ggplot(gapminder, aes(x = gdpPercap, y = lifeExp,
                          size = pop, colour = continent,
                          frame = year, label = country)) +
  geom_point(alpha = 0.5)

ggplotly(g)