Some code from Jasper for demonstrating map plotting in R