统计字符串出现与否

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有如下数据：

ID	name
1	hirs1681
1	hirs1681
1	hirs1681
1	Purepixel
1	virtuosoonline
1	Purepixel
1	virtuosoonline
1	ndokceplok
2	hirs1681
2	pixelmotion
2	frontend
2	frontend
2	Purepixel
2	Purepixel
3	……
3	……
3	……
3	……
……	……

现欲按照ID统计name字符变量出现与否，并累加（count1），以及出现的次数（count2），想要得到如下表格：

ID	name	count1	count2
1	hirs1681	1	1
1	hirs1681	1	2
1	hirs1681	1	3
1	Purepixel	2	1
1	virtuosoonline	3	1
1	Purepixel	3	2
1	virtuosoonline	3	2
1	ndokceplok	4	1
2	hirs1681	1	1
2	pixelmotion	2	1
2	frontend	3	1
2	frontend	3	2
2	Purepixel	4	1
2	Purepixel	4	2
3	……	……	……
3	……	……	……
3	……	……	……
3	……	……	……
……	……	……	……

请教该如何实现？谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：字符串 ONLINE Motion nline front 字符串 统计

呼唤大神

1. data raw;
   
2. input ID$        name$;
   
3. p=_n_;
   
4. cards;
   
5. 1 hirs1681
   
6. 1 hirs1681
   
7. 1 hirs1681
   
8. 1 Purepixel
   
9. 1 virtuosoonline
   
10. 1 Purepixel
    
11. 1 virtuosoonline
    
12. 1 ndokceplok
    
13. 2 hirs1681
    
14. 2 pixelmotion
    
15. 2 frontend
    
16. 2 frontend
    
17. 2 Purepixel
    
18. 2 Purepixel
    
19. run;
    
20. proc sort data=raw out=a;
    
21. by id name;run;
    
22. data c;
    
23.     do _n_=1 by 1 until(last.name);
    
24.         set a;
    
25.                 retain count2 ;
    
26.         by id name ;
    
27.   if first.name then count2=0;
    
28.   count2+1;
    
29.         output;
    
30.     end;
    
31. run;
    
32. proc sort data=c;by p ;run;
    
33. proc sort data=raw out=b nodupkey;
    
34. by id name ;
    
35. run;
    
36. proc sort data=b;by id p;run;
    
37. data c1;set b;
    
38. retain count ;
    
39. by id p;
    
40. if first.id then count=0;
    
41. count+1;run;
    
42. proc sort data=c;by id p;run;
    
43. proc sort data=c1;by id p;run;
    
44. data c2;
    
45. merge c c1;
    
46. by id p;
    
47. run;
    
48. data final(drop=p count);
    
49. set c2;
    
50. if count ne . then count1=count;
    
51. retain count1;
    
52. count=count1;
    
53. run;
    
54. data final;
    
55. retain id name count1 count2;
    
56. set final;
    
57. run;

复制代码

sushe1527 发表于 2015-3-9 19:36

多谢多谢，程序完美运行！！！！！

1. data a;
   
2. input ID name $20.;
   
3. p=_n_;
   
4. cards;
   
5. 1 hirs1681
   
6. 1 hirs1681
   
7. 1 hirs1681
   
8. 1 Purepixel
   
9. 1 virtuosoonline
   
10. 1 Purepixel
    
11. 1 virtuosoonline
    
12. 1 ndokceplok
    
13. 2 hirs1681
    
14. 2 pixelmotion
    
15. 2 frontend
    
16. 2 frontend
    
17. 2 Purepixel
    
18. 2 Purepixel
    
19. run;
    
20. proc sort data=a;by id p;run;
    
21. data a;
    
22. length name1 $1000;
    
23. set a;
    
24. by id p;
    
25. retain name1 '0' count1;
    
26. if first.id then do;name1=name;count1=1;end;
    
27. else if find(name1,compress(name),'')=0 then do;
    
28. count1+1;
    
29. name1=catx('',name,name1);
    
30. end;
    
31. run;
    
32. proc sort data=a out=b; by id name;run;
    
33. data b(drop=name1);
    
34. set b;
    
35. by id name;
    
36. if first.name then count2=1;
    
37. else count2+1;
    
38. run;
    
39. proc sort data=b out=c(drop=p);by id p;run;

复制代码

data raw;
        input ID name $20.;
        cards;
1 hirs1681
1 hirs1681
1 hirs1681
1 Purepixel
1 virtuosoonline
1 Purepixel
1 virtuosoonline
1 ndokceplok
2 hirs1681
2 pixelmotion
2 frontend
2 frontend
2 Purepixel
2 Purepixel
;
run;

proc sort data=raw;
        by id name;
run;

data a;
        set raw;
        by id name;
        new_name=lag(name);
        if first.id then
                do;
                        new_name=name;
                        count1=1;
                end;
                else if name=new_name  then count1=count1;
                        else count1+1;
        if first.name then count2=1;
                else count2+1;
        drop new_name p;
run;

1. data raw;
   
2.         input ID name $20.;
   
3.         cards;
   
4. 1 hirs1681
   
5. 1 hirs1681
   
6. 1 hirs1681
   
7. 1 Purepixel
   
8. 1 virtuosoonline
   
9. 1 Purepixel
   
10. 1 virtuosoonline
    
11. 1 ndokceplok
    
12. 2 hirs1681
    
13. 2 pixelmotion
    
14. 2 frontend
    
15. 2 frontend
    
16. 2 Purepixel
    
17. 2 Purepixel
    
18. ;
    
19. run;
    
20. 
    
21. proc sort data=raw;
    
22.         by id name;
    
23. run;
    
24. 
    
25. data want;
    
26.    set raw;
    
27.    by id name;
    
28.    if first.id then call missing(count1);
    
29.    if first.name then call missing(count2);
    
30.    if first.name then do;
    
31.    count1+1;
    
32.    count2+1;
    
33.    end;
    
34.    else count2+1;
    
35.    run;

复制代码

farmman60 发表于 2015-3-10 01:57

能解释一下call missing 的用法吗？谢谢