Create zip_map.r

Plotting map with zipcode