|
- source(here::here("R/00_base.R"))
-
- y_extra <- bind_rows(y, data_frame(id = 2, y = "y5"))
-
- # I manually linked objects together, it was late and this was easier...
- anim_df <- tibble::tribble(
- ~.y, ~label, ~value, ~.x, ~.id, ~color, ~frame, ~obj,
- -1L, "id", "1", 1, "x", "#E41A1C", 1, 1,
- -2L, "id", "2", 1, "x", "#377EB8", 1, 2,
- -2L, "id", "2", 1, "x", "#377EB8", 1, 3,
- -3L, "id", "3", 1, "x", "#4DAF4A", 1, 4,
- -1L, "x", "x1", 2, "x", "#d0d0d0", 1, 5,
- -2L, "x", "x2", 2, "x", "#d0d0d0", 1, 6,
- -3L, "x", "x3", 2, "x", "#d0d0d0", 1, 8,
- -2L, "x", "x2", 2, "x", "#d0d0d0", 1, 7,
- -1L, "id", "1", 4, "y", "#E41A1C", 1, 9,
- -2L, "id", "2", 4, "y", "#377EB8", 1, 10,
- -3L, "id", "4", 4, "y", "#984EA3", 1, 99,
- -4L, "id", "2", 4, "y", "#377EB8", 1, 11,
- -1L, "y", "y1", 5, "y", "#d0d0d0", 1, 12,
- -2L, "y", "y2", 5, "y", "#d0d0d0", 1, 13,
- -3L, "y", "y4", 5, "y", "#d0d0d0", 1, 98,
- -4L, "y", "y5", 5, "y", "#d0d0d0", 1, 14,
- -1L, "id", "1", 2, "x", "#E41A1C", 2, 1,
- -2L, "id", "2", 2, "x", "#377EB8", 2, 2,
- -3L, "id", "2", 2, "x", "#377EB8", 2, 3,
- -4L, "id", "3", 2, "x", "#4DAF4A", 2, 4,
- -1L, "x", "x1", 3, "x", "#d0d0d0", 2, 5,
- -2L, "x", "x2", 3, "x", "#d0d0d0", 2, 6,
- -3L, "x", "x2", 3, "x", "#d0d0d0", 2, 7,
- -4L, "x", "x3", 3, "x", "#d0d0d0", 2, 8,
- -1L, "y", "y1", 4, "x", "#d0d0d0", 2, 12,
- -2L, "y", "y2", 4, "x", "#d0d0d0", 2, 13,
- -3L, "y", "y5", 4, "x", "#d0d0d0", 2, 14,
- -1L, "id", "1", 2, "y", "#E41A1C", 2, 9,
- -2L, "id", "2", 2, "y", "#377EB8", 2, 10,
- -3L, "id", "2", 2, "y", "#377EB8", 2, 11
- )
-
- lj_extra <- anim_df %>%
- arrange(obj, frame) %>%
- plot_data("left_join(x, y)") %>%
- animate_plot()
-
- lj_extra <- animate(lj_extra)
- anim_save(here::here("images", "left-join-extra.gif"), lj_extra)
|
