|
- source(here::here("R/00_base_join.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)
-
- ## Save static images
- df_names <- data_frame(
- .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")
|
