Create plotatlasmap.R