多元统计分析论文-多元统计分析论文及程序

5 -0.291 0.183 0.570 0.227 0.571 烟尘 0.357 -0.685 -0.519 -0.342 -0.124 垃圾-0.376 -0.561 0.644 -0.311 -0.111 0.142 固体 0.434 0.182 -0.253 -0.783 0.p.p.p.p.p.p.6 SS loadings 1.000 1.000 1.000 1.000 1.000 1.000 Proportion Var 0.167 0.167 0.167 0.167 0.167 0.167 Cumulative Var 0.167 0.333 0.500 0.667 0.833 1.000 > screeplot(prin,type="lines",main=" 碎石图") 多元统计分析论文 9 碎石图 Variances 0 1 2 3 p.p.p.p.p.p.6 > load=loadings(prin) > load=load[,1:2] > score=y%*%load > p.p.2 [1,] -61814.92 7493.012 [2,] -72421.93 9036.337 [3,] -78846.22 10476.572 [4,] -89744.01 12147.954 [5,] -106808.67 15892.327 [6,] -120325.02 19113.801 [7,] -146983.02 26176.984 [8,] -171877.62 32156.958 [9,] -178982.06 33723.034 [10,] -193039.20 37035.618 [11,] -228991.02 45864.597 > barplot(-score[,1],col=6,main="2000~2010 年中国城市环境污染情况")