Rによる次元削減
Matt Pickard
Owner, Pickard Predictives, LLC

株全体ではなく、良い部分だけを使いましょう







library(ggfortify)pca_res <- prcomp(attrition_df %>% select(-Attrition), scale. = TRUE)autoplot(pca_res,data = attrition_df,colour = "Attrition",alpha = 0.7,loadings = TRUE,loadings.label = TRUE,loadings.colour = "black",loadings.label.colour = "black",loadings.label.repel = TRUE)
Rによる次元削減