Create organize_geo.R