• built with trelliscopejs and sparkline
• assembled with blockbuilder.org

---

Thanks so much to Ryan Hafen for his R and JS work on trelliscopejs.

I did not have enough time to figure out how to save the trelliscopejs widget as html, so I took the easy route with an animated GIF. Here is the code to reproduce this simple example.

Code

library(trelliscopejs)
library(dplyr)
library(tidyr)
library(sparkline)

mpg %>%
  group_by(manufacturer, class) %>%
  summarise(
    mean_city_mpg = cog(mean(cty), desc = "Mean city mpg"),
    mean_hwy_mpg = cog(mean(hwy), desc = "Mean highway mpg"),
    panel = panel(
      sparkline(
        unname(c(
          mean(.$cty),
          mean(cty),
          rev(quantile(.$cty,probs=c(1/3,2/3,1)))
        )),
        type="bullet",
        chartRangeMin=0,
        chartRangeMax=max(.$cty)
      )
    )
  ) %>%
  trelliscope(name = "city_vs_highway_mpg", nrow = 4, ncol = 8)