请教如何寻找变量的相同值！

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有个问题想了好久,一直没有做出来.来 请大家帮忙, 假设我有个数据是这样的：

1. data test;
   
2. input Sub$  Test$ R$;
   
3. cards;
   
4. 1  1   A
   
5. 1  2   A
   
6. 1  3   A
   
7. 1  4   A
   
8. 1  5   B
   
9. 2  1   C
   
10. 2  2   B
    
11. 2  3   B
    
12. 2  4   B
    
13. 2  5   A
    
14. 3  1   A
    
15. 3  2   C
    
16. 3  3   C
    
17. 3  4   C
    
18. 3  5   D
    
19. 4  1   A
    
20. 4  2   B
    
21. 4  3   C
    
22. 4  4   D
    
23. 5  1   A
    
24. 5  2   C
    
25. 5  3   B
    
26. 5  4   C
    
27. 5  5   A
    
28. ;
    
29. run;

复制代码

就是我有5 个test，我如何才能找出结果（result）连续三个或者三个以上是A，B，或者C 的那些人（sub)呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Result cards RESUL Input test result 如何

1. data test;
   
2. input Sub$  Test$  R$;
   
3. cards;
   
4. 1  1   A
   
5. 1  2   A
   
6. 1  3   A
   
7. 1  4   A
   
8. 1  5   B
   
9. 1  6   C
   
10. 1  7   C
    
11. 1  8   C
    
12. 2  1   C
    
13. 2  2   B
    
14. 2  3   B
    
15. 2  4   B
    
16. 2  5   A
    
17. 3  1   A
    
18. 3  2   C
    
19. 3  3   C
    
20. 3  4   C
    
21. 3  5   D
    
22. 4  1   A
    
23. 4  2   B
    
24. 4  3   C
    
25. 4  4   D
    
26. 5  1   A
    
27. 5  2   C
    
28. 5  3   C
    
29. 5  4   C
    
30. 5  5   A
    
31. 5  6   A
    
32. 5  7   A
    
33. 5  8   A
    
34. 5  9   F
    
35. ;
    
36. run;
    
37. 
    
38. proc sort data=test;
    
39. by sub test;
    
40. run;
    
41. 
    
42. data testfind;
    
43. set test end=last;
    
44. retain findc rlast " ";
    
45. by sub ;
    
46. 
    
47. if first.sub then do;
    
48. count=0;
    
49. rlast=r;
    
50. findc=rlast;
    
51. end;
    
52. 
    
53. 
    
54. 
    
55. if rlast=r then do;
    
56. count+1;
    
57. end;
    
58. 
    
59. 
    
60. 
    
61. else if rlast ne r then do;
    
62. 
    
63. if count>=3 then do;
    
64. output;
    
65. count=1;
    
66. rlast=r;
    
67. findc=rlast;
    
68. end;
    
69. if count<3 then do;
    
70. count=1;
    
71. rlast=r;
    
72. findc=rlast;
    
73. end;
    
74. 
    
75. end;
    
76. 
    
77. if last.sub and count>=3 then output;
    
78. keep sub findc count;
    
79. 
    
80. run;

复制代码

1. data have;
   
2. input Sub$  Test$ R$;
   
3. cards;
   
4. 1  1   A
   
5. 1  2   A
   
6. 1  3   A
   
7. 1  4   A
   
8. 1  5   B
   
9. 2  1   C
   
10. 2  2   B
    
11. 2  3   B
    
12. 2  4   B
    
13. 2  5   A
    
14. 3  1   A
    
15. 3  2   C
    
16. 3  3   C
    
17. 3  4   C
    
18. 3  5   D
    
19. 4  1   A
    
20. 4  2   B
    
21. 4  3   C
    
22. 4  4   D
    
23. 5  1   A
    
24. 5  2   C
    
25. 5  3   B
    
26. 5  4   C
    
27. 5  5   A
    
28. ;
    
29. run;
    
30. proc sort data = have;
    
31.    by sub test;
    
32. run;
    
33. 
    
34. data TopScore;
    
35.   s = 'A'; output;
    
36.   s = 'B'; output;
    
37.   s = 'C'; output;
    
38. run;
    
39. proc sql noprint;
    
40.     select "'"||cat(a.s,b.s, c.s)||"'" into : topABC separated by ","
    
41.     from TopScore as a, TopScore as b, TopScore as c;
    
42. quit;
    
43. 
    
44. %put '&topABC= ' &topABC;
    
45. 
    
46. data want;
    
47.     set have;
    
48.     r1=lag(r);
    
49.     r2 = lag2(r);       
    
50.     if test>=3 then r3=cat(compress(r2),compress(r1),compress(r));
    
51.     if r3 in (&topABC);
    
52.     drop r1 r2;
    
53. run;

复制代码

非常感谢楼上两位大牛的热心帮忙,请问yongyitian，在你的output data有可能像二楼那样吗? 就是只output 那些AAA,BBB或者ABC等?  再次感谢两位.

5个tests的结果中，只有AAA，BBB，CCC 可能出现一次以上.
即有连续的 4 到 5个 A, 如 AAAA, AAAAA，或 B(BBBB,BBBBB) 或 C (CCCC,CCCCC).

其他的每种 A, B, C 组合， 如 ABC, AAB, CCA 等只能出现一次.

1. data have;
   
2. input Sub $  Test $ R $;
   
3. cards;
   
4. 1  1   A
   
5. 1  2   A
   
6. 1  3   A
   
7. 1  4   A
   
8. 1  5   B
   
9. 2  1   C
   
10. 2  2   B
    
11. 2  3   B
    
12. 2  4   B
    
13. 2  5   A
    
14. 3  1   A
    
15. 3  2   C
    
16. 3  3   C
    
17. 3  4   C
    
18. 3  5   D
    
19. 4  1   A
    
20. 4  2   B
    
21. 4  3   C
    
22. 4  4   D
    
23. 5  1   A
    
24. 5  2   C
    
25. 5  3   B
    
26. 5  4   C
    
27. 5  5   A
    
28. 6  1   B
    
29. 6  2   B
    
30. 6  3   B
    
31. 6  4   B
    
32. 6  5   B
    
33. ;
    
34. run;
    
35. proc sort data = have;
    
36.    by sub test;
    
37. run;
    
38. 
    
39. data TopScore;
    
40.   s = 'A'; output;
    
41.   s = 'B'; output;
    
42.   s = 'C'; output;
    
43. run;
    
44. proc sql noprint;
    
45.      select "'"||cat(a.s,b.s, c.s)||"'" into : topABC separated by ","
    
46.          from TopScore as a, TopScore as b, TopScore as c;
    
47. quit;
    
48. %put '&topABC= ' &topABC;
    
49. 
    
50. data want;
    
51.     set have;
    
52.     r1=lag(r);
    
53.     r2 = lag2(r);       
    
54.     if test>= 3 then r3 = cat(compress(r2), compress(r1), compress(r));
    
55.     if r3 in (&topABC);
    
56.     drop r1 r2;
    
57. run;
    
58. 
    
59. proc sql;
    
60.    create table wanted as
    
61.    select distinct sub, r3, count(r3) as N
    
62.    from want
    
63.    group by sub, r3
    
64.    order by sub, r3;
    
65. quit;

复制代码

第一条记录 sub=1, r3=AAA, N=2 说明 A 连续出现4次
最后一条记录 sub=6, r3=BBB, N=3 说明 B 连续出现5次