Visualizando e interpretando resultados de PCA

Aprendizado não supervisionado em R

Hank Roark

Senior Data Scientist at Boeing

Biplot

biplot

Aprendizado não supervisionado em R

Gráfico scree

gráfico scree

Aprendizado não supervisionado em R

Biplots no R

# Creating a biplot
pr.iris <- prcomp(x = iris[-5], 
                  scale = FALSE, 
                  center = TRUE)
biplot(pr.iris)

biplot

Aprendizado não supervisionado em R

Gráficos scree no R

# Getting proportion of variance for a scree plot
pr.var <- pr.iris$sdev^2
pve <- pr.var / sum(pr.var)

# Plot variance explained for each principal component
plot(pve, xlab = "Principal Component",
       ylab = "Proportion of Variance Explained",
       ylim = c(0, 1), type = "b")
Aprendizado não supervisionado em R

gráfico scree

Aprendizado não supervisionado em R

Vamos praticar!

Aprendizado não supervisionado em R

Preparing Video For Download...