$1.$ Load the midwest dataset from the ggplot$2$ package.

a$.$ Use the filter function $($page $161)$ to select observations in Ohio.

i$.$ What is the average percentage of college educated among these counties?

ii$.$ What is the average percentage of Asians in Ohio?

b$.$ Use the group$\_$by function to obtain average percentage of college educated and

average percentage of Asians for all midwestern states.

$2.$ Type the following code below into an Rscript file in order to create two data frames. Once

you have created the data frames do the following:

$$ Using commands found in the Tidyverse package, perform the following joins

individually.

o Left Join

o Right Join

o Full Join

o Using comments in your script, explain the results of the output.

CODE TO CREATE DATA FRAMES

library$($ggplot$2)$

data$("$economics$")$

econ$2<-$ economics $\%>\%$ select$(-$date$)\%>\%$ map$\_$if$($is$.$integer, ~$.$x$/1000)$

DF$1<-$ data.frame$($wages$1=$ rlnorm$(100,$ meanlog $=$ log$(50000)),$ pension$1=$

rlnorm$(100,$meanlog $=$ log$(1$e$+05)),$ hhid $=1$:$100)$

DF$2<-$ data.frame$($wages$2=$ rlnorm$(100,$ meanlog $=$ log$(50000)),$ pension$2=$

rlnorm$(100,$meanlog $=$ log$(1$e$+05)),$ hhid $=1$:$100)$