Merging

Types of merges

• inner_join
• left_join
• semi_join
• anti_join

Some initial code

Here are packages and data needed

library(tidyverse)
library(readxl)

parts <- read_excel("C:/Users/imowerma/Downloads/merging.xlsx", 
                      sheet = "Parts")

products <- read_excel("C:/Users/imowerma/Downloads/merging.xlsx", 
                      sheet = "Products")

Inner Joins

inner join matches on both sides

parts

## # A tibble: 5 x 3
##   PART     PROD SUPPLIER    
##   <chr>   <dbl> <chr>       
## 1 WIRE     10.0 ACWF        
## 2 OIL     160   WESTERN_CHEM
## 3 MAGNETS  10.0 BATEMAN     
## 4 PLASTIC  30.0 PLASTIK_CORP
## 5 BLADES  205   ACE_STEEL

products

## # A tibble: 4 x 3
##    PROD PRODUCT     PRICE
##   <dbl> <chr>       <dbl>
## 1 505   SCREWDRIVER  3.70
## 2  30.0 RELAY        7.55
## 3 205   SAW         18.9 
## 4  10.0 GENERATOR   45.8

inner <- inner_join(parts , products)

## Joining, by = "PROD"

inner

## # A tibble: 4 x 5
##   PART     PROD SUPPLIER     PRODUCT   PRICE
##   <chr>   <dbl> <chr>        <chr>     <dbl>
## 1 WIRE     10.0 ACWF         GENERATOR 45.8 
## 2 MAGNETS  10.0 BATEMAN      GENERATOR 45.8 
## 3 PLASTIC  30.0 PLASTIK_CORP RELAY      7.55
## 4 BLADES  205   ACE_STEEL    SAW       18.9