sas中的一个除重问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

[img]file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\851986797\QQ\WinTemp\RichOle\W3)5WG%]61%P{ZJB58LQ[E3.jpg[/img]
想把var3中每行的重复变量去掉
请问有什么办法

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Application documents Document Settings setting

1. data test;
   
2. length string $50.;
   
3. input string $;
   
4. datalines;
   
5. 24357:625722:24357:7107:80499:7107
   
6. 8013:552865:32626:562:8013:326:562
   
7. 1703:228407:6213:1703:6213:509
   
8. 636408:684730:560876:2896:8108
   
9. ; run;
   
10. 
    
11. data result;
    
12. set test;
    
13. array x{*} x1-x10;
    
14. length new_string $50.;
    
15. n = countw(string, ':');
    
16. do i = 1 to n;
    
17. x(i) = scan(string, i, ':');
    
18. end;
    
19. do i = 1 to n;
    
20. do j = i+1 to n;
    
21. if x(i) = x(j) then x(j) = . ;
    
22. end;
    
23. end;
    
24. do i = 1 to n;
    
25. if x(i) ^= . then
    
26. new_string = catx(':', new_string, put(x(i), 9.));
    
27. end;
    
28. keep string new_string;
    
29. run;

复制代码

yongyitian 发表于 2013-7-9 07:03

还想请问，如果要是行列都除重的话，应该怎么改动？

Qiao克力舞后 发表于 2013-7-9 11:25
还想请问，如果要是行列都除重的话，应该怎么改动？

如果不考虑每个数字在一行中出现的位置。只是去掉完全重复的行,
用proc sort with nodupkey option as follows.

proc sort data=result out=result_sort nodupkey;
    by string;
run;

如果考虑每个数字在一行中出现的位置 比如 1:2:3 和 3:2:1 也算重复的话.
那么要先对行排续， 然后再sort.

yongyitian 发表于 2013-7-9 11:50
如果不考虑每个数字在一行中出现的位置。只是去掉完全重复的行,
用proc sort with nodupkey option as  ...

我的意思是，行列都除重，不是行完全相同或有位置变化 才除掉

Qiao克力舞后 发表于 2013-7-9 12:30
我的意思是，行列都除重，不是行完全相同或有位置变化 才除掉

这个还没想明白。有没有数据可以说明一下。

事实上，一楼的问题是去掉一个string中的重复的字符串， 并不是去掉每一行的重复值。 每一行一般会有多个变量。

yongyitian 发表于 2013-7-9 21:50
这个还没想明白。有没有数据可以说明一下。

事实上，一楼的问题是去掉一个string中的重复的字符串， ...

还是上面的数据啊，我最终的目的是想找出var3中一共有多少个不同的字符串（行列所有分号分隔的字符串都算在范围内）

yongyitian 发表于 2013-7-9 21:50
这个还没想明白。有没有数据可以说明一下。

事实上，一楼的问题是去掉一个string中的重复的字符串， ...

还是上面的数据啊，我最终的目的是想找出var3中一共有多少个不同的字符串（行列所有分号分隔的字符串都算在范围内）

Qiao克力舞后 发表于 2013-7-9 23:17
还是上面的数据啊，我最终的目的是想找出var3中一共有多少个不同的字符串（行列所有分号分隔的字符串都算 ...

这个比前面的要简单

1. data test;
   
2.    length string $50.;
   
3.    input string $;
   
4. datalines;
   
5. 24357:625722:24357:7107:80499:7107
   
6. 8013:552865:32626:562:8013:326:562
   
7. 1703:228407:6213:1703:6213:509
   
8. 636408:684730:560876:2896:8108
   
9. 24357:625722:24357:7107:80499:7107
   
10. ; run;
    
11. 
    
12. 
    
13. data test1;
    
14.     set test;
    
15.     obs=_n_;
    
16.     n = countw(string, ':');
    
17.     do i = 1 to n;
    
18.     x = input(scan(string, i, ':'), 9.);
    
19.     output;
    
20.     end;
    
21.     drop i n;   
    
22.   *  keep x;
    
23. run;
    
24. 
    
25. proc sort data=test1 out = want nodupkey;
    
26.    by x;
    
27. run;
    
28. 
    
29. proc print data=want; title 'want'; run;

复制代码

学习下。