又要向大家求助了，一个统计个数的问题

SpencerMeng 发表于 2015-4-6 22:22
哦哦 我明白了。

我不会写循环，您看如下代码吧，麻烦些，希望能给您启示：

谢谢你了。试了没问题。我再来想想怎么让他循环吧

jmjun85 发表于 2015-4-7 09:29
谢谢你了。试了没问题。我再来想想怎么让他循环吧

我突然会了~！！

1. clear
   
2. inp id str10 x
   
3.   1 "a;b"
   
4.   1 "c;d"
   
5.   1 "f;b;c;d"
   
6.   1 "w;d;c;d"
   
7.   1 "d;b;c"
   
8.   1 "s;d"
   
9.   2 "a;b"
   
10.   2 "c;d"
    
11.   2 "f;b;c;d"
    
12.   2 "w;d;c;d"
    
13.   2 "d;b;c"
    
14.   2 "s;d"
    
15.   3 "a;b"
    
16.   3 "c;d"
    
17.   3 "f;b;c;d"
    
18.   3 "w;d;c;d"
    
19.   3 "d;b;c"
    
20.   3 "s;d"
    
21. 
    
22. end
    
23. 
    
24. split x,parse(";")
    
25. 
    
26. foreach x of numlist 1 2 3 {
    
27. preserve
    
28. keep if id==1
    
29. stack x1 x2 x3 x4,into(v) clear //将拆开的变量堆积成一列
    
30. duplicates drop v, force //删除重复的字母
    
31. count if v !="" //数出非重复字母的个数
    
32. restore
    
33. }

复制代码

SpencerMeng 发表于 2015-4-7 09:31
我突然会了~！！

那还要考虑一个问题，就是把最终计算的数字要存储到一个变量里呢，还要和前面的id对应上呢。
刚才想了半天还是没弄好

还是版主厉害

jmjun85 发表于 2015-4-7 09:33
那还要考虑一个问题，就是把最终计算的数字要存储到一个变量里呢，还要和前面的id对应上呢。
刚才想了半 ...

如果要放到变量里面。。。我功力不足。。循环弄不出来，只能想出麻烦些的代码

我需要灵感。。。哈哈 我也是自学 有想法就调试下

1. clear
   
2. inp id str10 x
   
3.   1 "a;b"
   
4.   1 "c;d"
   
5.   1 "f;b;c;d"
   
6.   1 "w;d;c;d"
   
7.   1 "d;b;c"
   
8.   1 "s;d"
   
9.   2 "a;b"
   
10.   2 "c;d"
    
11.   2 "f;b;c;d"
    
12.   2 "w;d;c;d"
    
13.   2 "d;b;c"
    
14.   2 "s;d"
    
15.   3 "a;b"
    
16.   3 "c;d"
    
17.   3 "f;b;c;d"
    
18.   3 "w;d;c;d"
    
19.   3 "d;b;c"
    
20.   3 "s;d"
    
21. 
    
22. end
    
23. 
    
24. split x,parse(";")
    
25. 
    
26. keep if id==1
    
27. stack x1 x2 x3 x4,into(v) clear //将拆开的变量堆积成一列
    
28. duplicates drop v, force //删除重复的字母
    
29. egen id2=group(v)
    
30. egen num=max(id2)

复制代码

关键是这个stack啊。。。一堆积之后就把原来的id覆盖了。。