Reproduction of http://www.washingtonpost.com/wp-srv/special/business/states-most-threatened-by-trade/ in R/ggplot2