Script the data acquisition
Play with the choroplethr package
Not sure I like it; might switch back to ggplot