多元統(tǒng)計分析論文及程序-資料下載頁
2025-01-18 14:37本頁面
【正文】 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 d=dist(x) clust=hclust(d,method=ward) plot(clust,hang=1) (clust,k=3) rm(list=ls(all=TRUE))六、繪圖：2000年及2010年環(huán)境治理投資構(gòu)成數(shù)據(jù)：年份城市環(huán)境基礎(chǔ)設(shè)施建設(shè)投資（億元）工業(yè)污染源治理投資（億元）建設(shè)項目“三同時”環(huán)保投資（億元）20002602001200220032004200520062007200818012009251220103972033程序： a=c(,260) b=c(,397,2033) names(a)=c(城市環(huán)境基礎(chǔ)設(shè)施建設(shè),工業(yè)污染源治理,“三同時”環(huán)保投資) pie(a,main=2000年環(huán)境投資構(gòu)成) names(b)=names(a) pie(b,main=2010年環(huán)境投資構(gòu)成) rm(list=ls(all=TRUE))七、因子分析數(shù)據(jù)：年 份城市生活垃圾無害化處理率（%）建成區(qū)綠化覆蓋率（%）人均公園綠地面積（平方米）城市污水處理率（%） 工業(yè)SO2排放達(dá)標(biāo)率（%） 工業(yè)煙塵排放達(dá)標(biāo)率（%）工業(yè)粉塵排放達(dá)標(biāo)率（%）工業(yè)固體廢物綜合利用率（%）2001200240752003200420055220068720076292008200991672010程序： x=() xx=x[,2:9] factanal(xx,1)Call:factanal(x = xx, factors = 1)Uniquenesses: V2 V3 V4 V5 V6 V7 V8 V9 Loadings: Factor1V2 V3 V4 V5 V6 V7 V8 V9 Factor1SS loadings Proportion Var Test of the hypothesis that 1 factor is sufficient.The chi square statistic is on 20 degrees of freedom.The pvalue is fac=factanal(xx,1) load=loadings(fac) load=load[,1] xx=(xx) bar=xx%*%load barplot(bar[,1],main=2001~2010年全國城市環(huán)境質(zhì)量水平,col=rep(2:4,times=3))19
法律信息相關(guān)推薦
鄂ICP備17016276號-1