急求！如何不重复统计一个矩阵里值出现的次数

数据如下：
code a  b  c  d  e  f
1      x  y      m
1      z      n
1      x          z
2      n                s
2      t  n      s
现在要不重复统计同一个code（例如1）a-f，这6个变量总共出现几种值（例子里则为5，分别为x,y,z,m,n），
输出：
1 5
2 3
应该怎样做？我尝试用proc transpose想把列转成行by code也没有成功。数据量较大。59万行，上万组code。
急求各位大大！

1. /* in the following code, USD = dollar sign */
   
2. 
   
3. data long;
   
4.    array arr USD a b c d e f;
   
5.     set test;
   
6.       do over arr;
   
7.         a_f = arr;
   
8.         output;
   
9.       end;
   
10.    keep code a_f;
    
11. run;
    
12. 
    
13. proc sql;
    
14.     create table want as
    
15.     select code, count(distinct a_f) as n
    
16.     from long
    
17.     group by code;
    
18. quit;

复制代码

如果a, b, c, d, e,f下面都是单个character的话可以用下面的程序实现

1. proc sort data = test; by code; run;
   
2. data result;
   
3.         set test; by code;
   
4.         format value $200.;
   
5.         array dat{*} $ a b c d e f;
   
6.         retain cnt value;
   
7.         if first.code then do; value = ''; cnt = 0; end;
   
8. 
   
9.         do i = 1 to dim(dat);
   
10.                 if dat[i] ne '' then do;
    
11.                         if index(value, dat[i]) = 0 then do;
    
12.                                 cnt + 1;
    
13.                                 value = catx(',', value, dat[i]);
    
14.                         end;
    
15.                 end;
    
16.         end;
    
17. 
    
18. 
    
19.         if last.code;
    
20.         keep code cnt;
    
21. run;

复制代码

yuerqieqie 发表于 2014-6-4 21:19
如果a, b, c, d, e,f下面都是单个character的话可以用下面的程序实现

您是说单个字符么？不是，x y  z 什么都是中文姓名。这个代码跑出来是有结果的，但是结果不对呢。。。请问一下跟我的字符长度设定有没有关系呢？a 的长度是$20，b的长度是$8，c-f是$6。是excel导入默认的。

yongyitian 发表于 2014-6-4 22:16

谢谢！明白了，跑出来了。