Create plotglobal.R