demonstration of Tibble -> Nest -> Model -> Plot -> TrelliscopeJS

test.rmd

## Tibble -> Nest -> Model -> Plot -> TrelliscopeJS

Source: [schloerke/stat695data](https://github.com/schloerke/stat695data#gapminder)

```{r}
library(gapminder)

tibble::glimpse(gapminder)

# look per continent
qplot(year, lifeExp, data = gapminder, geom = "line", group = country) +
  facet_wrap(~ continent)

# split to each country
qplot(year, lifeExp, data = gapminder, geom = "line", group = country) +
  facet_trelliscope(~ country, nrow = 2, ncol = 4, path = "_gggapminder")

country_model <- function(df) {
  lm(lifeExp ~ year, data = df)
}

# look at each country individually
gapminder %>%
  group_by(country, continent) %>%
  nest() %>%
  mutate(
    model = purrr::map(data, country_model)
  ) %>%
  mutate(
    model_info = purrr::map(model, broom::glance)
  ) %>%
  unnest(model_info) %>%
  select(country, continent, data, r.squared) %>%
  mutate(
    panel = map_plot(data,
      ~ figure(ylim = c(10, 95), toolbar = NULL) %>%
          ly_lines(year, lifeExp, data = .x) %>%
          ly_points(year, lifeExp, hover = .x, data = .x) %>%
          theme_axis("x", major_label_orientation = 45)
    )
  ) %>%
  trelliscope(name = "rbokeh_gapminder", nrow = 2, ncol = 4)  
```