Clean the PCA data

Source: R/ALASCA.R

This function makes the pca output more useful

clean_pca()