# Tidy Animated Verbs Garrick Aden-Buie – [@grrrck](https://twitter.com/grrrck) – [garrickadenbuie.com](https://www.garrickadenbuie.com). Set operations contributed by [Tyler Grant Smith](https://github.com/TylerGrantSmith). [](https://mybinder.org/v2/gh/gadenbuie/tidy-animated-verbs/master?urlpath=rstudio) [_-CC0-green.svg)](https://creativecommons.org/publicdomain/zero/1.0/) [_-MIT-green.svg)](https://opensource.org/licenses/MIT) - Mutating Joins: [`inner_join()`](#inner-join), [`left_join()`](#left-join), [`right_join()`](#right-join), [`full_join()`](#full-join) - Filtering Joins: [`semi_join()`](#semi-join), [`anti_join()`](#anti-join) - Set Operations: [`union()`](#union), [`union_all()`](#union-all), [`intersect()`](#intersect), [`setdiff()`](#setdiff) - Learn more about - [Relational Data](#relational-data) - [gganimate](#gganimate) Please feel free to use these images for teaching or learning about action verbs from the [tidyverse](https://tidyverse.org). You can directly download the [original animations](images/) or static images in [svg](images/static/svg/) or [png](images/static/png/) formats, or you can use the [scripts](R/) to recreate the images locally. Currently, the animations cover the [dplyr two-table verbs](https://dplyr.tidyverse.org/articles/two-table.html) and I’d like to expand the animations to include more verbs from the tidyverse. [Suggestions are welcome\!](https://github.com/gadenbuie/tidy-animated-verbs/issues) ## Installing The library can be installed with ``` r # install.package("devtools") devtools::install_github("gadenbuie/tidy-animated-verbs") ``` ## Mutating Joins ``` r library(tidyAnimatedVerbs) x <- data_frame( id = 1:3, x = paste0("x", 1:3) ) y <- data_frame( id = (1:4)[-3], y = paste0("y", (1:4)[-3]) ) animate_full_join(x, y, by = c("id"), export = "first") ```  ``` r x #> # A tibble: 3 x 2 #> id x #> #> 1 1 x1 #> 2 2 x2 #> 3 3 x3 y #> # A tibble: 3 x 2 #> id y #> #> 1 1 y1 #> 2 2 y2 #> 3 4 y4 ``` ### Inner Join > All rows from `x` where there are matching values in `y`, and all > columns from `x` and `y`. ``` r animate_inner_join(x, y, by = "id") ```  ``` r inner_join(x, y, by = "id") #> # A tibble: 2 x 3 #> id x y #> #> 1 1 x1 y1 #> 2 2 x2 y2 ``` ### Left Join > All rows from `x`, and all columns from `x` and `y`. Rows in `x` with > no match in `y` will have `NA` values in the new columns. ``` r animate_left_join(x, y, by = "id") ```  ``` r left_join(x, y, by = "id") #> # A tibble: 3 x 3 #> id x y #> #> 1 1 x1 y1 #> 2 2 x2 y2 #> 3 3 x3 ``` ### Left Join (Extra Rows in y) > … If there are multiple matches between `x` and `y`, all combinations > of the matches are returned. ``` r y_extra <- bind_rows(y, data_frame(id = 2, y = "y5")) y_extra # has multiple rows with the key from `x` #> # A tibble: 4 x 2 #> id y #> #> 1 1 y1 #> 2 2 y2 #> 3 4 y4 #> 4 2 y5 animate_left_join(x, y_extra, by = "id") ```  ``` r left_join(x, y_extra, by = "id") #> # A tibble: 4 x 3 #> id x y #> #> 1 1 x1 y1 #> 2 2 x2 y2 #> 3 2 x2 y5 #> 4 3 x3 ``` ### Right Join > All rows from y, and all columns from `x` and `y`. Rows in `y` with no > match in `x` will have `NA` values in the new columns. ``` r animate_right_join(x, y, by = "id") ```  ``` r right_join(x, y, by = "id") #> # A tibble: 3 x 3 #> id x y #> #> 1 1 x1 y1 #> 2 2 x2 y2 #> 3 4 y4 ``` ### Full Join > All rows and all columns from both `x` and `y`. Where there are not > matching values, returns `NA` for the one missing. ``` r animate_full_join(x, y, by = "id") ```  ``` r full_join(x, y, by = "id") #> # A tibble: 4 x 3 #> id x y #> #> 1 1 x1 y1 #> 2 2 x2 y2 #> 3 3 x3 #> 4 4 y4 ``` ## Filtering Joins ### Semi Join > All rows from `x` where there are matching values in `y`, keeping just > columns from `x`. ``` r animate_semi_join(x, y, by = "id") ```  ``` r semi_join(x, y, by = "id") #> # A tibble: 2 x 2 #> id x #> #> 1 1 x1 #> 2 2 x2 ``` ### Anti Join > All rows from `x` where there are not matching values in `y`, keeping > just columns from `x`. ``` r animate_anti_join(x, y, by = "id") ```  ``` r anti_join(x, y, by = "id") #> # A tibble: 1 x 2 #> id x #> #> 1 3 x3 ``` ## Set Operations ``` r x <- tibble::tribble( ~x, ~y, "1", "a", "1", "b", "2", "a" ) y <- tibble::tribble( ~x, ~y, "1", "a", "2", "b" ) animate_union(x, y, export = "first") ```  ``` r x #> # A tibble: 3 x 2 #> x y #> #> 1 1 a #> 2 1 b #> 3 2 a y #> # A tibble: 2 x 2 #> x y #> #> 1 1 a #> 2 2 b ``` ### Union > All unique rows from `x` and `y`. ``` r animate_union(x, y) ```  ``` r union(x, y) #> # A tibble: 4 x 2 #> x y #> #> 1 2 b #> 2 2 a #> 3 1 b #> 4 1 a ``` ``` r animate_union(y, x) ```  ``` r union(y, x) #> # A tibble: 4 x 2 #> x y #> #> 1 2 a #> 2 1 b #> 3 2 b #> 4 1 a ``` ### Union All > All rows from `x` and `y`, keeping duplicates. ``` r animate_union_all(x, y) ```  ``` r union_all(x, y) #> # A tibble: 5 x 2 #> x y #> #> 1 1 a #> 2 1 b #> 3 2 a #> 4 1 a #> 5 2 b ``` ### Intersection > Common rows in both `x` and `y`, keeping just unique rows. ``` r animate_intersect(x, y) ```  ``` r intersect(x, y) #> # A tibble: 1 x 2 #> x y #> #> 1 1 a ``` ### Set Difference > All rows from `x` which are not also rows in `y`, keeping just unique > rows. ``` r animate_setdiff(x, y) ```  ``` r setdiff(x, y) #> # A tibble: 2 x 2 #> x y #> #> 1 1 b #> 2 2 a ``` ``` r animate_setdiff(y, x) ```  ``` r setdiff(y, x) #> # A tibble: 1 x 2 #> x y #> #> 1 2 b ``` ## Learn More ### Relational Data The [Relational Data](http://r4ds.had.co.nz/relation-data.html) chapter of the [R for Data Science](http://r4ds.had.co.nz/) book by Garrett Grolemund and Hadley Wickham is an excellent resource for learning more about relational data. The [dplyr two-table verbs vignette](https://dplyr.tidyverse.org/articles/two-table.html) and Jenny Bryan’s [Cheatsheet for dplyr join functions](http://stat545.com/bit001_dplyr-cheatsheet.html) are also great resources. ### gganimate The animations were made possible by the newly re-written [gganimate](https://github.com/thomasp85/gganimate#README) package by [Thomas Lin Pedersen](https://github.com/thomasp85) (original by [Dave Robinson](https://github.com/dgrtwo)). The [package readme](https://github.com/thomasp85/gganimate#README) provides an excellent (and quick) introduction to gganimte.