一种将数据集旋转90度的做法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

使用如下语句获取一个示例数据集：

1. data class;
   
2.   set sashelp.class(keep=age height weight);
   
3. run;

复制代码

要将该数据集旋转90度，可使用数组帮助完成。

1. %let dsin=class;
   
2. %let var=age height weight;
   
3. %let rc=%sysfunc(open(&dsin));
   
4. %if &rc %then %do;
   
5.   %let nobs=%sysfunc(attrn(&rc,nobs));
   
6.   %let rc=%sysfunc(close(&rc));
   
7. %end;
   
8. %let varcount=%sysfunc(countw(&var));
   
9. 
   
10. data myout(keep=_rst_:);
    
11.   set &dsin end=_eof_;
    
12.   array _tmp_[&varcount,&nobs]_temporary_;
    
13.   array _rst_[&nobs];
    
14.   array _var_ &var.;
    
15. 
    
16.   do over _var_;
    
17.     _tmp_[_i_,_n_]=_var_;
    
18.   end;
    
19. 
    
20.   if _eof_ then do;
    
21.     do _idx1_=1 to &varcount;
    
22.       do _idx2_=1 to &nobs;
    
23. /*        _rst_[_idx2_]=_tmp_[&varcount-_idx1_+1,_idx2_];   *逆时针90;*/
    
24.         _rst_[_idx2_]=_tmp_[_idx1_,&nobs-_idx2_+1];     *顺时针90;
    
25.       end;
    
26.       output;
    
27.     end;
    
28.   end;
    
29. run;

复制代码

运行上面的程序，work.myout 即为旋转90度之后的数据集。

注意：
    1. proc transpose 的结果是中心对称的，不是旋转得到的；
    2. 将上面程序的输出作为输入，再次运行程序，可以将数据集再次旋转90度，这样就可以得到旋转180度的数据集；

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据集 TEMPORARY Transpose sysfunc SASHELP

点个赞感谢分享

有意思。数组还是很强大的