screeplot in ggplot and added PCA work to slides