how to color groups?

[seankross]

library(dplyr)

mt <- mtcars %>%
  as_tibble() %>%
  filter(cyl < 8) %>%
  select(mpg, cyl, am) %>%
  arrange(cyl, am) %>%
  slice(1, 2, 5, 12, 17, 18)

mt %>%
  group_by(cyl) %>%
  group_by(am)

[seankross]

Maybe:

• group_id: "cyl=4"
• group_id: "cyl=4,am=0"
• group_id: "am=0"

[seankross]

library(dplyr)

mt <- mtcars %>%
  as_tibble() %>%
  filter(cyl < 8) %>%
  select(mpg, cyl, am) %>%
  arrange(cyl, am) %>%
  slice(1, 2, 5, 12, 17, 18) %>%
  slice(1, 5)

mt %>%
  group_by(cyl) %>%
  group_by(am) %>%
  group_by(cyl, am)

[pgbovine]

looks good for now!