Week 8 Mapping in R