R: better PCA plots