如何列出两个数据集或三个数据集共有的变量名

RT，谢谢！

可以用SAS里面的dictionary， 举例如下，

data data1;
  x=1;
  y=2;
run;

data data2;
  x=3;
  z=5;
run;

data data3;
  x=5;
  w=6;
run;

proc sql;
  select a.name as name
  from (select name from dictionary.columns where libname = "WORK" and memname = "DATA1") a,
       (select name from dictionary.columns where libname = "WORK" and memname = "DATA2") b,
           (select name from dictionary.columns where libname = "WORK" and memname = "DATA3") c
  where a.name = b.name and b.name = c.name;
quit;

proc sql;
   create table common_var as
    select distinct name, memname
          from dictionary.columns
          where libname="SASHELP" /*and upcase(memname) in (your-dataset-list-of-interest)*/
          group by name
          having count(distinct memname)>1;
quit;

1. data tmp1;
   
2.         input x y z a b ;
   
3. datalines;
   
4. 1 2 3 4 5
   
5. 6 7 8 9 10
   
6. ;
   
7. run;
   
8. data tmp2;
   
9.         input c d e x y;
   
10. datalines;
    
11. 2 3 4 5 6
    
12. 1 2 3 4 5
    
13. ;
    
14. run;
    
15. proc contents data=tmp1 out=out1(keep=name);
    
16. run;
    
17. proc contents data=tmp2 out=out2(keep=name);
    
18. run;
    
19. /*两个数据集时*/
    
20. proc sql;
    
21.         create table out as
    
22.         select name
    
23.         from out1
    
24.         where (name in (select name from out2))
    
25.         ;
    
26. quit;
    
27. 
    
28. data tmp3;
    
29.         input a1 a2 x y a3;
    
30. datalines;
    
31. 8 7 6 5 4
    
32. 2 3 4 5 6
    
33. ;
    
34. run;
    
35. proc contents data=tmp3 out=out3(keep=name);
    
36. run;
    
37. /*三个数据集时*/
    
38. proc sql;
    
39.         create table out as
    
40.         select name
    
41.         from out1
    
42.         where (name in (select name from out2)) and (name in (select name from out3))
    
43.         ;
    
44. run;

复制代码

对于小数据集，还是可以的。

1. data a;
   
2.     x=1;
   
3.     y=2;
   
4. run;
   
5. 
   
6. data b;
   
7.     x=3;
   
8. run;
   
9. 
   
10. data c;
    
11.     x=4;
    
12.     y=6;
    
13. run;
    
14. 
    
15. proc transpose data=a out=a1;run;
    
16. proc transpose data=b out=b1;run;
    
17. proc transpose data=c out=c1;run;
    
18. 
    
19. data common(keep=_name_);
    
20.     merge a1(in=in_a) b1(in=in_b) c1(in=in_c);
    
21.     if in_a and in_b and in_c;
    
22.     label _name_="公共变量";
    
23. run;

复制代码

ihust 发表于 2013-1-27 10:43

你好，这个程序不能识别大小写字母？比如AGE和age要怎么解决呢？

你可以在ihust的程序里把名字都变成大写：
proc sql;
        create table out as
        select name
        from out1
        where (upcase(name) in (select upcase(name) from out2)) and (upcase(name) in (select upcase(name) from out3))
        ;
run;

用ihust 的3个datasets， 这样也可以吧：
proc contents data=_all_ out=out1(keep=memname name);
run;
data out2;
set out1;/*  where memname in ('TMP1' 'TMP2' 'TMP3');  ---如果很多别的datasets 不想考虑 */
name=upcase(NAME); /* 把age 变成AGE */
run;
proc freq data =out2;
table name/ out=out3 (where= (count=3));
run;