added a princomp plotting function