Create plotPhylo.motmot.R