我懂你的意思了，你是说组合的频率，对么？

稍加改变即可：

data your_data;
  input v1 v2;
cards;
1 2
3 4
5 4
7 8
7 9
3 4
5 4
5 6
5 1
7 0
;

proc sort data=your_data out=var_data;
  by v1 v2;
run;

data report_data;
  set var_data;
  by v1 v2;
  retain sum maxfreq;
  first_num=0; last_num=0;
  if first.v1 or first.v2 then first_num=1;
  if last.v1 or last.v2 then last_num=1;
  if _n_=1 then maxfreq=0;
  if first_num=1 then sum=0;
  sum=sum+1;
  if last_num=1 then do;
    if sum>maxfreq then maxfreq=sum;
  end;
  call symput('maxfreq',maxfreq);
run;

data result_report;
  set report_data;
  if sum=&maxfreq;
  keep v1 v2 maxfreq;
run;

proc print data=result_report;
run;

------------------------------------------------------------------------------------------------

结果是：

                                     Obs    v1    v2    maxfreq
                                       1       3      4        2
                                       2       5      4        2


------------------------------------------------------------------------------------------------

考虑V1与V2的组合，结果显示：

组合(3,4)和组合(5,4)均出现2次，这个2次是最大出现次数。

字符就稍微复杂一点了，用排序法不见得可以做得通，得想其他的法子了。

我的SAS也不怎么样，字符类型的问题我也期待高手来解决。

非常的感谢！
我的是5个变量，是不是就改动：
if first.v1 or first.v2 or first.v3 or first.v4 or first.v5 then first_num=1;
以及其它出现v1 v2 的地方就可以了？
请原谅我对sas的无知，衷心感谢你！
如果我除了要找出最大的组合及其频数，还要找出第2、第3的频数及其次数，需要调整哪个地方呢？

你说得对，比如对以下程序，除了改成first.v1 or first.v2 or ... first.v5之外，别忘了：

last.v1 or last.v2 or ... last.v5

另外：

by v1 v2  改为 by v1 v2 ... v5

(keep=v1 v2 sum) 改为 (keep=v1 v2 ... v5 sum)

至于找前三个较高频率数及其对应组合，程序如下：

data your_data;
  input v1 v2;
cards;
1 2
3 4
5 4
7 8
7 9
3 4
5 4
5 6
5 6
5 6
5 1
7 0
9 9
9 9
9 9
9 9
9 9
;

proc sort data=your_data out=var_data;
  by v1 v2;
run;

data report_data;
  set var_data;
  by v1 v2;
  retain sum;
  first_num=0; last_num=0;
  if first.v1 or first.v2 then first_num=1;
  if last.v1 or last.v2 then last_num=1;
  if first_num=1 then sum=0;
  sum=sum+1;
  if last_num=1;
run;

proc sort data=report_data(keep=v1 v2 sum) out=report_data;
  by descending sum;
run;

proc print data=report_data;
run;

----------------------------------------------------------------------------------------------------------

结果为：

                                       Obs    v1    v2    sum
                                        1       9      9      5
                                        2       5      6      3
                                        3       3      4      2
                                        4       5      4      2
                                        5       1      2      1
                                        6       5      1      1
                                        7       7      0      1
                                        8       7      8      1
                                        9       7      9      1


----------------------------------------------------------------------------------------------------------

SUM变量统计的是出现的频数，已经按频数从高到低排序了。

你只需要在前面数三个较高频数的组合即可！

我不清楚你的频数考不考虑顺序，
比如
a b c d e
1 2 3 4 5
5 4 3 2 1
这两行是否是同一个组合？
如果是，参考这段：
proc datasets lib=work nodetails nolist;delete out;run;
data a;
input a b c d e;
cards;
1 2 3 4 5
3 4 5 6 1
1 3 4 5 6
1 3 4 5 1
5 4 3 2 1
;
data _null_;
set a end=eof;
if eof then call symput('n',left(_n_));
run;
data out;run;
%macro loop();
%do i=1 %to &n;
data out&i;
set a;
if _n_=&i;
run;
proc transpose data=out&i out=out&i(drop=_label_ _name_);
var _numeric_;
run;
proc sort data=out&i out=out&i;by col1;run;
proc transpose data=out&i out=out&i;
var col1;
run;
data out;
set out out&i;
drop _name_;
run;
%end;
data out;set out;if _n_^=1;run;
%mend;
%loop();
data t;
set out;
x=catx(',',col1,col2,col3,col4,col5);
run;
proc sql;select distinct x,count(*) as num from t group by x order by calculated num desc;quit;
如果不是，前面的loop都不需要了，直接从catx那步做起。

Sometimes SQL is good on counting. Jingju

another solution:

用proc SQL也不是很简单嘛。

用proc SQL也不是很简单嘛。

想不出比sql更简单的方法了......

SQL不错~ 也可以把v1-v5合并成一个var然后用freq，也不麻烦的。

proc sql;
        create table outdata as
        select x1,x2,x3,x4,x5,count(*) as count from indata
        group by 1,2,3,4,5
        order by count desc;
quit;

需要用到v1-v5中都不出现的字符作分隔符
否则
v1 v2
ab a  
a  ba
呵呵......

额对，的确要注意这个，谢谢提醒~~

jingju11（12楼）与novice505（13楼）的方法很好。

很多常用的proc，只要稍微变一变，就能完成很多任务，根本不用另外编程。

我对这一块恰恰不是很熟。

膜拜牛人了。

高手啊

万分感谢，真是高手啊！

Compared to SQL, ---jingju

楼上正解

学习了

学习学习