# 看一下数据
head(no)
输出
转换和标准化数据
对数转换和标准化,将所有变量设置在同一尺度上。...# 对数转换
no_log <- log(no)
# 标准化
log\_scale <- scale(no\_log)
head(log_scale)
主成分分析(PCA)
使用奇异值分解算法进行主成分分析...数据
pch=21, # 点形状
cex=1.5, # 点的大小
legend("topright", # legend的位置
legend=levels(vint),...type="n", xlab="", ylab="", main=""
abline(h=0, v=0, col="gray", lty=2) #在0添加线条
legpch 的大小
ppch=c(21:23), # 点的形状(必须与因子的数量相匹配)
legpos="bottom right"