• Print |
• E-mail  |
• Bookmark

 
 /*+-------------------------------------------------------------+
   |          S A S   S A M P L E   L I B R A R Y                |
   |                                                             |
   |    NAME: GMPROSUR                                           |
   |   TITLE: GMPROSUR-Rotating and Tilting a Surface Map        |
   | PRODUCT: GRAPH                                              |
   |  SYSTEM: ALL                                                |
   |    KEYS: GRAPHICS MAPS GMAP                                 |
   |   PROCS: GMAP                                               |
   |    DATA: INTERNAL                                           |
   |                                                             |
   | SUPPORT: GRAPHICS STAFF              UPDATE:                |
   |     REF: SAS/GRAPH REFERENCE GUIDE                          |
   |    MISC: EDIT AND UNCOMMENT THE LIBNAME STATEMENTS          |
   |          IF THE LIBREFS HAVE NOT BEEN DEFINED.              |
   +-------------------------------------------------------------+*/

   /* Define the libref maps */
*libname maps 'SAS-MAPS-library';

   /* Set the graphics environment */
goptions reset=all gunit=pct border cback=white
         colors=(black blue green red)
         ftext=swiss htitle=6 htext=3;

   /* Create the SITES data set */
data sites;
   length stcode $ 2;
   input region stcode $ sites;
   state=stfips(stcode);
   datalines;
6   AR  12
10  AK  7
4   AL  12
9   AZ  10
9   CA  90
8   CO  15
1   CT  15
3   DE  18
4   FL  52
4   GA  15
9   HI  4
7   IA  16
10  ID  8
5   IL  38
5   IN  30
7   KS  10
4   KY  16
6   LA  15
1   MA  30
3   MD  13
1   ME  12
5   MI  72
5   MN  30
7   MO  22
4   MS  1
8   MT  8
4   NC  22
8   ND  0
7   NE  10
1   NH  18
2   NJ  105
6   NM  9
9   NV  1
2   NY  78
5   OH  34
6   OK  10
10  OR  10
3   PA  100
1   RI  12
4   SC  26
8   SD  2
4   TN  14
6   TX  26
8   UT  12
3   VA  25
1   VT  8
10  WA  49
5   WI  40
3   WV  6
8   WY  3
;

   /* Define titles and footnotes for map */
title1 'Hazardous Waste Site Installations (1997)';
footnote1 j=r 'GMPROSUR';

   /* Display the surface map */
proc gmap map=maps.us data=sites;
   id state;
   surface sites / constant=4
                   nlines=100
                   rotate=40
                   tilt=60;
run;
quit;

Operating System and Release Information