1.思路 2.代码 PCA <- function(data,k){ #中心化处理 standardize = data.frame() for(i in 1:nrow(data)){ for(j in 1:ncol