left_join_extra.R

source(here::here("R/00_base_join.R"))

y_extra <- bind_rows(y, tibble(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)

## Save static images
df_names <- tibble(
  .x = c(1.5, 4.5), .y = 0.25,
  value = c("x", "y"),
  size = 12,
  color = "black"
)

g_input <- proc_data(y_extra) %>%
  mutate(.x = .x + 3) %>%
  bind_rows(proc_data(x)) %>%
  plot_data() +
  geom_text(data = df_names, family = "Fira Mono", size = 24) +
  annotate("text", label = "↑ duplicate keys in y", x = 4.5, y = -4.75,
           family = "Fira Sans", color = "grey45")

save_static_plot(g_input, "left-join-extra-input")

lj_g <- left_join(x, y_extra, by = "id") %>%
  proc_data() %>%
  mutate(.x = .x + 1) %>%
  plot_data_join("left_join(x, y)", ylims = ylim(-4.5, -0.5))

save_static_plot(lj_g, "left-join-extra")