amandamasonsingh

# I had to make a few tweaks to my code to get this to work.  
# I also was never able to load the Prison data, so I used my own data.
# To stay consistent with this example (where this code is forked from), I am calling data data "Prison" here.

# Here are the changes that I made.
# For example, instead of:
# Total <- merge(all_states, Prison, by="region")
# I had to do:
# Total <- merge(all_states, Prison, all=TRUE)