### c$.$ Create a table by merging the prior two tables, then melting to convert to long form.

Don't change this code $-$ just run it$.$

$```\{$r$\}$

income$\_$by$\_$region$\_$grouped$\_$wide $=$ merge$($income$\_$by$\_$region $\%>\%$ select$($region$,$ total$\_$income$),$top$\_3\_$by$\_$population,on$=$"region"$)$

income$\_$by$\_$region$\_$grouped$\_$long $=$ melt$($income$\_$by$\_$region$\_$grouped$\_$wide,variable.name $=$ "income$\_$category",value.name $=$ "income",id$.$vars $=$ "region"$)$

income$\_$by$\_$region$\_$grouped$\_$long

$```$

### d$*.$ Create a grouped bar plot from the income$\_$by$\_$region$\_$grouped$\_$long data to allow us to compare the total and top $3$ states income in each region.

$-$ Each region should have two bars in different colors $-$ one color for total$\_$income, and one color for top$\_3\_$income.

$-$ Customize the plot by adding title$/$labels$,$ adding a theme, and enlarging the font $($see Q$1$; you can reuse the larger$\_$font variable, if you wish$).$

After completing the steps above, improve the plot as follows:

$-$ Instead of using $*$x$=$region$*,$ use $*$x$=$fct$\_$reorder$2($region$,$income$\_$category,income$)*.$ Notice how the regions are now ordered by the length of one of the bars.

$-$ Make the legend have a better title. You can do this inside the labs$()$ command where you set the x label, y label, and title. Here you can use $*$fill$="..."*$ to title the legend.

$-$ Customize the colors by adding onto the plot a line of code like this $($choose your own favorite color scheme!$)$: $*$scale$\_$fill$\_$manual$($labels$=$c$("$full region","most populated $3$ states"$),$values$=$c$("$gray$",$"slateblue"$))*$

$```\{$r$\}$

$```$

### e$*.$ Create a stacked bar plot of income by region for the top $3$ most populous states.

Hint: $($code needed for full row for top $3$ by population$)\%>\%$ ggplot...

$-$ Encode the states using the fill color.

$-$ Add title, labels, a theme, and enlarged font.