Візуалізація поясненої дисперсії
Тепер, коли всі обчислення виконано, корисно подати дані візуально. Ви створите стовпчикову діаграму, що показує частку дисперсії, пояснену кожною головною компонентою.
Доступний вектор variable_explained, який ви створили в попередній вправі, а ggplot() з theme_() встановлено як classic.
Ця вправа є частиною курсу
Feature Engineering в R
Інструкції до вправи
- Використайте інформацію з PCA tibble, щоб побудувати стовпчикову діаграму поясненої дисперсії.
Інтерактивна практична вправа
Спробуйте виконати цю вправу, доповнивши цей зразок коду.
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")