Stat. 651 Welcome

Gapminder

library(pacman)
p_load(tidyverse, gapminder)
gapminder

gapminder %>% 
  ggplot(aes(x = gdpPercap, y = lifeExp )) + 
  geom_point()

gapminder %>% 
  ggplot(aes(x = log(gdpPercap), y = log(lifeExp))) + 
  geom_point()

gapminder %>% 
  ggplot(aes(x = log(gdpPercap), y = log(lifeExp), color = continent, size = pop)) + 
  geom_point() +
  geom_text(aes(label=ifelse(country=="United States",as.character(country),'')),hjust=-0.2,vjust=0)

Faceting

gapminder

gapminder %>%  
  ggplot(aes(x = log(gdpPercap), y = log(lifeExp), color = continent, size = pop)) + 
  geom_point() +
  facet_wrap(~year) 

Plot.ly

library(plotly)
p <- gapminder %>%  
  ggplot(aes(x = log(gdpPercap), y = log(lifeExp), color = continent, size = pop)) + 
  geom_point() +
  facet_wrap(~year)
ggplotly(p)

Plot.ly faceting

library(plotly)
p <- gapminder %>%  
  ggplot(aes(x = log(gdpPercap), y = log(lifeExp), color = continent, size = pop)) + 
  geom_point() +
  facet_wrap(~year)
ggplotly(p)

Plot.ly annimation with ggplot.

To learn about Plot.ly R and Plot.ly ggplot.

The plot.ly book is an excellent place to start to learn about use of annimation plot.ly chapter 5.

gg <- gapminder %>% ggplot(aes(log(gdpPercap), log(lifeExp), color = continent)) +
  geom_point(aes(size = pop, frame = year, ids = country)) 

Ignoring unknown aesthetics: frame, ids

ggplotly(gg)