求助：如何改变观测的位置？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有下列数据：data test;
        input x1-x10;
        datalines;
.        .        .        .        .        .        7        8        .        .
.        .        .        .        15        13        17        .        .        .
.        .        .        .        25        26        .        .        .        .
.        .        .        34        31        30        37        .        .        .
.        .        .        44        49        46        .        .        .        .
.        .        .        54        55        .        .        .        .        .
.        .        68        65        67        62        .        .        .        .
;
run;

想得到把有数据的观测，放到从右端开始的位置，不要改变每行观测的顺序。
x1        x2        x3        x4        x5        x6        x7        x8        x9        x10
.        .        .        .        .        .        .        .        7        8
.        .        .        .        .        .        .        15        13        17
.        .        .        .        .        .        .        .        25        26
.        .        .        .        .        .        34        31        30        37
.        .        .        .        .        .        .        44        49        46
.        .        .        .        .        .        .        .        54        55
.        .        .        .        .        .        68        65        67        62


谢谢各位！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Input Lines Data test line

1. data x;
   
2.     retain x3-x8 x9 x10 x1 x2;
   
3.     set test;
   
4. run;

复制代码

是想这样吗？

建议用数组。

1. data test;
   
2. input x1-x10;
   
3. datalines;
   
4. . . . . . . 7 8 . .
   
5. . . . . 15 13 17 . . .
   
6. . . . . 25 26 . . . .
   
7. . . . 34 31 30 37 . . .
   
8. . . . 44 49 46 . . . .
   
9. . . . 54 55 . . . . .
   
10. . . 68 65 67 62 . . . .
    
11. ;
    
12. run;
    
13. 
    
14. data want;
    
15.   set test;
    
16. 
    
17.   array _x_ x1-x10;
    
18.   do i = dim(_x_) to 1 by -1;
    
19.     do j = dim(_x_) to i by -1 while(_x_[i] ^= .);
    
20.       if _x_[j] = . then do;
    
21.         _x_[j] = _x_[i];
    
22.         _x_[i] = .;
    
23.       end;
    
24.     end;
    
25.   end;
    
26. run;

复制代码

1. data test;
   
2.         set test;
   
3.         call sortn(of x1-x10);
   
4. run;

复制代码

孤单的我们 发表于 2020-7-29 08:55

这个是只能升序排，没有办法达到楼主说的不改变变量位置

Cecilia_Xi 发表于 2020-8-2 16:47
这个是只能升序排，没有办法达到楼主说的不改变变量位置

1. data have;
   
2. input x1-x10;
   
3. datalines;
   
4. . . . . . . 7 8 . .
   
5. . . . . 15 13 17 . . .
   
6. . . . . 25 26 . . . .
   
7. . . . 34 31 30 37 . . .
   
8. . . . 44 49 46 . . . .
   
9. . . . 54 55 . . . . .
   
10. . . 68 65 67 62 . . . .
    
11. ;
    
12. run;
    
13. 
    
14. proc sql noprint;
    
15.         select name into :valst separated by ',' from dictionary.columns where libname='WORK' and memname eq 'HAVE';
    
16. quit;
    
17. 
    
18. data want;
    
19.         set have;
    
20.         _temp=catx('|',&valst.);
    
21.         _n=count(_temp,'|')+1;
    
22.         call missing(&valst.);
    
23.         array _a x1-x10;
    
24.         do i=1 to _n ;
    
25.                         _j=10-_n+i;
    
26.                 _a[_j]=scan(_temp,i,'|');
    
27.         end;
    
28.        drop i _j _temp;
    
29. run;
    
30.        

复制代码

看看这个行吗？

1. data test2;      

复制代码

不好意思没复制到。

1. data test2;
   
2.     set test;
   
3.         array a(10) a1-a10;
   
4.         array x(10) x1-x10;
   
5.         do i=10 to 1 by -1;
   
6.             a(i)=coalesce(of x10-x1);
   
7. 
   
8.                 do y=10 to 1 by -1;
   
9.                     if not missing(x(y)) then do;
   
10.                             x(y)=.;
    
11.                                 leave;
    
12.                         end;
    
13.                 end;
    
14.         end;
    
15.         keep a:;
    
16. run;

复制代码