The lab is due Thursday 2/9/17. You can download this .Rmd file from https://raw.githubusercontent.com/idc9/stor390/master/labs/5/joins_lab.Rmd

Read in some toy joins data

library(tidyverse)
banking_account_types <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/banking_account_types.csv')
banking_transactions <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/banking_transactions.csv')


crime_arrests <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/crime_arrests.csv')
crime_wealth <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/crime_wealth.csv')

titanic_outcomes <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/titanic_outcomes.csv')
titanic_person_features <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/titanic_person_features.csv')

toy1 <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/toy_one.csv')
toy2 <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/toy_two.csv')

play1 <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/play_one.csv')
play2 <- read_csv('https://raw.githubusercontent.com/idc9/stor390/master/data/joins/play_two.csv')

For each of the following questions do the specified joins. Remember to follow the process looking at header, data set row counts and data types in advance and make a prediction about the join outcome. Print out the dimensions of the resulting data frames.

Question 1

Join the toy data sets using inner, outer, and left joins.

Question 2

Join the play data sets using inner, outer, and left joins.

Question 3

Join the banking data sets using inner join.

Question 4

Join the crime data sets using inner join.

Question 5