Create maps.R

make maps