- proc mapimport datafile="E:\diji\Bount_poly.shp" out=chinamap;
- run;
- proc sort data=chinamap(where=(SH2="32")) out=response nodupkey;
- by adcode99;
- run;
- data response;
- set response;
- if di2=01 then city="南京";if di2=01 then gdp=9720;
- if di2=02 then city="无锡";if di2=02 then gdp=8518;
- if di2=03 then city="徐州";if di2=03 then gdp=5319;
- if di2=04 then city="常州";if di2=04 then gdp=5273;
- if di2=05 then city="苏州";if di2=05 then gdp=14504;
- if di2=06 then city="南通";if di2=06 then gdp=6148;
- if di2=07 then city="连云港";if di2=07 then gdp=2160;
- if di2=08 then city="淮安";if di2=08 then gdp=2745;
- if di2=09 then city="盐城";if di2=09 then gdp=4213;
- if di2=10 then city="扬州";if di2=10 then gdp=4016;
- if di2=11 then city="镇江";if di2=11 then gdp=3502;
- if di2=12 then city="泰州";if di2=12 then gdp=3655;
- if di2=13 then city="宿迁";if di2=13 then gdp=2110;
- run;
- goptions reset=all;
- legend1 label=("江苏省地级市");
- legend2 down=10 label=("江苏省地级市GDP(亿元)") position=(middle right outside) across=1;
- proc gmap map=chinamap(where=(sh2="32")) data=response all;
- id name99;
- choro name99;
- run;
- proc gmap map=chinamap(where=(sh2="32")) data=response all;
- id name99;
- choro city/legend=legend1;
- run;
- proc gmap map=chinamap(where=(sh2="32")) data=response all;
- id di2;
- choro gdp/legend=legend2 levels=13;
- run;
- proc gmap map=chinamap(where=(sh2="32")) data=response all;
- id di2;
- choro gdp/legend=legend2 discrete levels=13;
- run;
- proc gmap map=chinamap(where=(sh2="32")) data=response all;
- id di2;
- prism gdp/legend=legend2 discrete levels=13;
- run;
- proc gmap map=chinamap(where=(sh2="32")) data=response all;
- id di2;
- area di2/legend=legend2;
- block gdp/legend=legend2;
- run;
- proc print data=chinamap(obs=5);
- run;
- proc print data=response;
- run;
- quit;
- BOUNT_poly.shp
- BOUNT_poly.shx
- BOUNT_poly.dbf