what happens when we make a barplot: dat \\( \\%>\\% \\) ggplot (aes (state, rate)) + geom_bar (stat="identity") + coord_flip() Define these objects: state <- dat \\( \\$ \\) state rate <- dat\\$count/dat\\$population*10000*52/dat\\$weeks_reporting Redefine the state object so that the levels are re-ordered. Print the new object state and its levels so you can see that the vector is not re-ordered by the levels