Визуализация объяснённой дисперсии
Когда все вычисления выполнены, полезно представить данные в наглядном виде. Сейчас вы создадите столбчатую диаграмму, отображающую долю дисперсии, объяснённую каждой главной компонентой.
Вектор variable_explained, созданный в предыдущем упражнении, уже доступен, а тема theme_() для ggplot() установлена как классическая.
Это упражнение является частью курса
Конструирование признаков в R
Инструкции к упражнению
- Используя данные из tibble PCA, постройте столбчатую диаграмму объяснённой дисперсии.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
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")