程序简单修改后如下:
data cluster_data;
input province:$9. x1 x2@@;
datalines;
jinan 0.0655 -0.0066 qingdao 0.0041 -0.006 zibo 0.0295 0.0068
zaozhuang 0.0616 0.0003 dongying 0.0148 0.017 yantai 0.0121 0.013
weifang 0.0764 0.0078 jining 0.1099 0.0033 taian 0.0997 -0.0032
weihai 0 0.0183 rizhao 0.0246 0.0109 laiwu 0.0081 0.0765
linyi 0.0344 0.0029 dezhou 0.1512 -0.03 liaocheng 0.2201 -0.0285
binzhou 0.1063 -0.025 heze 0.2659 -0.0293
;
run;
proc cluster data=cluster_data standard nonorm method=average nosquare pseudo outtree=tree;
var x1-x2;
copy province;
run;
proc tree data=tree horizontal pages=1;
id province;
run;
运行后的聚类图如下: