Reveal plot by group

Turns a ggplot into a list of plots, showing data incrementally by groups. Note that if the group aesthetic is not explicitly defined in the original plot, ggplot2 will set it to the interaction of all discrete variables (see ggplot2::aes_group_order).

Usage

reveal_groups(p, order = NULL)

Arguments

p

A ggplot2 object

order

(optional) A numeric vector specifying in which order to reveal the groups

For example, if there are three groups in the plot, order = c(3, 2, 1) will invert the order in which they are revealed.

Any group not included in the vector will be omitted from the incremental plots. E.g.: with order = c(3, 1), the second group is not shown.

By default, the first plot is blank, showing layout elements (title, legends, axes, etc) but no data. To omit the blank plot, include -1: e.g. order = c(-1, 3, 1), or order = -1.

Value

A list of ggplot2 objects, which can be passed to reveal_save()

Examples

# Create full plot
library(ggplot2)
data("mtcars")

p <- mtcars |>
  ggplot(aes(mpg, wt,
             color = factor(vs),
             group = factor(vs))) +
  geom_point() +
  geom_smooth(method="lm",
              formula = 'y ~ x',
              linewidth=1) +
  facet_wrap(~am)
p


plot_list <- reveal_groups(p)
plot_list[[1]]

plot_list[[2]]

plot_list[[3]]


# Save plots
reveal_save(plot_list, "myplot.png", width = 8, height = 4, path = tempdir())
#> 
#> ── Saving incremental plots ──
#> 
#> ✔ /tmp/RtmpM72VTI/myplot_0.png
#> ✔ /tmp/RtmpM72VTI/myplot_1.png
#> ✔ /tmp/RtmpM72VTI/myplot_2_last.png

# Clean temp files
file.remove(list.files(path = tempdir(), pattern = "myplot", full.names = TRUE)) 
#> [1] TRUE TRUE TRUE