proc-tabulate

data boat;
    infile cards;
    input name $ 1-12 port $ move $ type $ price 6.2;   
    cards;
Silent Lady  Maalea  Sail  sch 75.00
America II   Maalea  Sail  yac 32.95
ALoha Anai   Lahaina Sail  cat 62.00
Ocean Spirit Maalea  Power cat 22.00
Anuenue      Maalea  Sail  sch 47.50
Hana Lei     Maalea  Power cat 28.99
Leilani      Maalea  Power yac 19.99
Kalakaua     Maalea  Power cat 29.50
Reef Runner  Lahaina Power yac 29.95
Blue Dolhin  Maalea  Sail  cat 42.95
;
proc tabulate data=boat;
* calss 语句告诉sas哪些变量将数据分成不同部分;
class port move type;
* table 语句可以定义一个表，可以用对歌table语句定义多个表;
* table语句可以在报告中指定三个维度：页、行、列，如果只指定一个维度
  则默认是列维度，如果指定两个，则是行和列;
table port, move,type;

proc sort data=boat;
by move type;
proc print data=boat;
run;

proc tabulate data=boat format=DOLLAR9.2;
class move type;
var price;
table move all, max*price*(type all)/BOX='Full Day Excurions' MISSTEXT='none';
    title;
run;

proc format;
    value $typ  'cat' = 'catamaran'
                'sch' = 'schonet'
                'yac' = 'yacht';
proc tabulate data=boat format=dollar9.2;
class move type;
var price;
* 使用格式化;
format type $typ.;
* ''可以去除表格顶部变量名，'xxx'可以指定变量名为xxx;
table move all, (type='mean price by type of boat' all)*max=''*price=''
/BOX='Full Day Excurions' MISSTEXT='none';
    title;
run;

data length;
    infile cards;
    input length;
    cards;
64
65
60
65
52
110
45
70
50
65
;

* 使用set在boat中插入一列数据;
data newboat;
    set boat;
    set length;
proc print data=newboat;
run;

proc tabulate data=newboat;
class move type;
var price;
var length;
format type $typ.;

table move all, max*(price*format=Dollar6.2 length*format=6.0)*(type all);
run;