R语言主成分分析

主成分分析介绍可以看此视频

library(FactoMineR)
data("iris")
iris_pca <- PCA(iris[,-5], graph =F)
summary(iris_pca)
library(factoextra)
eig_val <- get_eigenvalue(iris_pca)  # 获得特征值,其实summary里也有
eig_val
scree_plot <-fviz_eig(iris_pca)
scree_plot
fviz_pca_var(iris_pca, col.var = "black")
# 个体PCA可视化
iris_pca
ind_plot <- fviz_pca_ind(iris_pca,
                         geom.ind = "point", # 点图
                         col.ind = iris$Species, # 颜色分类
                         palette = c("#00AFBB", "#E7B800", "#FC4E07"),#颜色设置
                         addEllipses = TRUE, # 添加椭圆
                         legend.title = "Groups") #添加标题
ind_plot

代码比较简单,主要还是理解原理

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值