SAS如何间隔提取数据集的多个变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

非常感谢热心跟帖的朋友，这个问题现已很好的解决。使用它们的方法之后，我也把体会分享一下。或许对有类似问题的朋友有帮助。

webgu, 老师她摸我, ziyenano 的3种方法都能够达到间隔提取变量的目的。但是由于我的数据量比较大，所有就比较了一下3种方法，webgu 的方法最快，而且我发现他考虑的很周到，考虑到了keep我所列变量之外的其他变量（见8楼代码18行a1）。这样就可以更好的挑选变量用于建立新的数据集。
--------------------------------------------------------------------------------------
原问题如下:
有一个数据集 其中包含大量变量，变量名比较规则 假设变量名为 A1, A2, A3, ..., A1000
那么如何固定间隔提取某些变量 用于建立新的数据集呢
比如间隔5个, 只提取5的倍数:
A5, A10, A15, A20, ..., A1000
如果是keep 或是 drop 太麻烦了哦，而且有时变量比我举例的还要多。
请高手解答，非常感谢！

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：多个变量 数据集 keep 非常感谢 drop 间隔 如何

这个很容易就能做到，用一个程序：
forvalues i = 1/200 {
local j = 5*`i'
ge a`i' = A`j'
}
keep a1-a200
save 后面省略了！！

data  work.ex;
array A(20);
do i=1 to 20;
A(i)=1;
end;
drop i;
;
run;


proc sql noprint;
select name into :col_name separated by ' '
from sashelp.vcolumn
where libname='WORK' and memname='EX'
and compress(name,'','d')='A' and
mod(input(compress(name,'','kd'),best32.),5)=0;
quit;

data ex1;
set ex;
keep &col_name;
run;

1. data test;
   
2.         array A{50};
   
3. run;
   
4. proc transpose data=test out=test1;
   
5. run;
   
6. data test2;
   
7.         do i=5 to nobs by 5;
   
8.                 set test1 point=i nobs=nobs;
   
9.                 output;
   
10.         end;
    
11.         stop;
    
12. run;
    
13. proc transpose data=test2 out=test3(drop=_name_);
    
14. run;

复制代码

老师她摸我 发表于 2012-12-13 15:36

多谢回复！
我是个sas初学者，你的这个方法我看的最明白。sas选取obs比变量更灵活，转置一下方便多了

ziyenano 发表于 2012-12-13 09:39
data  work.ex;
array A(20);
do i=1 to 20;

多谢您的回复！
测试成功！
但是中间那段 sql的语句， 我看着有些吃力。还得多多学习

zhoucejing 发表于 2012-12-13 08:25
这个很容易就能做到，用一个程序：
forvalues i = 1/200 {
local j = 5*`i'

虽然不太明白你写的，还是谢谢你！

1. data  demo;
   
2. array A(20);
   
3. do i=1 to 20;
   
4.         A(i)=1;
   
5. end;
   
6. drop i;
   
7. ;
   
8. run;
   
9. 
   
10. %macro keepvar();
    
11.    %do i=5 %to 20 %by 5;
    
12.        A&i
    
13.         %end;
    
14. %mend;
    
15. 
    
16. data want;
    
17. set  demo;
    
18. keep  a1 %keepvar;
    
19. run;

复制代码

webgu 发表于 2012-12-14 08:55

太牛了！
你这个方法运行最快，非常感谢你！

请教一下，我现在要保留A1 A5 A10……，语句怎么写啊？