proc means输出问题

shiyiming

Here is a working but awkward approach. Essentially it's nothing new but pretty much borrowing the ideas from the posts in the above. I'm also expecting an elegant way of achieving this to show up. <!-- s:-) --><img src="{SMILIES_PATH}/icon_smile.gif" alt=":-)" title="Smile" /><!-- s:-) -->

[code:orb67fo6]data bb;
   input var1-var4;
   datalines;
1 2 3 4
1 2 3 4
1 2 3 4
5 6 4 8
8 5 9 3
7 5 8 7
3 4 9 8
5 2 4 6
;
run;

%macro means(in =, vars =, metrics =, out =);
  proc means data = &amp;in&#46; noprint;
    var &amp;vars&#46;;
    output out = &amp;out&#46; (drop=_type_ _freq_)
           &amp;metrics&#46; /autoname;
  run;

  proc transpose data = &amp;out&#46;
                 out = &amp;out&#46;(rename = (_name_ = formerVar
                                       col1 = value
                                      )
                            );
  run;

  data &amp;out&#46;(drop = formerVar);
    set &amp;out&#46;;
    variable = scan(formerVar, 1, '_');
    metric = scan(formerVar, 2, '_');
  run;

  proc sort data = &amp;out&#46;;
    by variable;
  run;

  proc transpose data = &amp;out&#46;
                 out = &amp;out&#46;(drop = _name_);
    by variable;
    id metric;
    var value;
  run;
%mend means;

%means(in = bb, vars = %nrstr(var1-var4), metrics = %nrstr(mean= N= std= min= max= median=), out = summary);

[/code:orb67fo6]

shiyiming

muhahaha，这个最赞！