Variantie visualiseren
Nu je alle berekeningen achter de rug hebt, is het handig om je gegevens ook visueel weer te geven. Je maakt nu een kolomgrafiek die de verklaarde variantie per principale component laat zien.
De variable_explained-vector die je in de vorige oefening hebt gemaakt is beschikbaar, en het ggplot()-theme_() staat op classic.
Deze oefening maakt deel uit van de cursus
Feature engineering in R
Oefeninstructies
- Gebruik de informatie in de PCA-tibble om een kolomgrafiek van de verklaarde variantie te maken.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
PCA = tibble(PC = 1:length(sdev), var_explained = var_explained,
cumulative = cumsum(var_explained))
# Use the information in the PCA tibble to create a column plot of variance explained
PCA %>% ggplot(aes(x = ___, y = ___)) +
geom_col(fill = "steelblue") +
xlab("Principal components") +
ylab("Variance explained")