多元統(tǒng)計分析論文及程序(編輯修改稿)
2025-02-14 14:37 本頁面
【文章內(nèi)容簡介】 attach(x) plot(V1,V2,main=2000~2010年中國城市化率,xlab=年份,ylab=城市化率(%),type=h,col=4) rm(list=ls(all=TRUE))三、主成分分析：2000~2010年中國城市污染物釋放情況數(shù)據(jù)：年 份城市污水排放量（億立方米）工業(yè)廢氣排放總量(億標立方米)工業(yè)粉塵排放量(萬噸)煙塵排放總量(萬噸)城市生活垃圾清運(萬噸)量工業(yè)固體廢棄物排放量(萬噸)200013814510921181920011608631347020021752579411365020031989061485720042376961095155091762200526898815577200633099014841200736138816915215200840386615438200943606415734201051916815805程序： x=() names(x)=c(年份,污水,廢氣,粉塵,煙塵,垃圾,固體) y=x[,2:7] y 污水 廢氣 粉塵 煙塵 垃圾 固體1 138145 11819 2 160863 13470 3 175257 13650 4 198906 14857 5 237696 15509 6 268988 15577 7 330990 14841 8 388169 15215 9 403866 15438 10 436064 15734 11 519168 15805 yy=scale(y,center=T,scale=T) yy 污水 廢氣 粉塵 煙塵 垃圾 固體 [1,] [2,] [3,] [4,] [5,] [6,] [7,] [8,] [9,] [10,] [11,] attr(,scaled:center) 污水 廢氣 粉塵 煙塵 垃圾 固體 attr(,scaled:scale) 污水 廢氣 粉塵 煙塵 垃圾 固體 prin=prinp(yy) summary(prin)Importance of ponents: Standard deviation Proportion of Variance Cumulative Proportion Standard deviation Proportion of Variance Cumulative Proportion loadings(prin)Loadings: 污水 廢氣 粉
法律信息相關推薦
鄂ICP備17016276號-1