【程序求助】如何将赋变量名

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原始数据导入SAS，如下图。有一些问题请高手不吝赐教。
1，如何将从第三列开始的年份和月份数据，如2002， January 2002 等等，赋给该列作为变量名。也就是说将该图中的VAR3换为2002， VAR4换为200201的格式。因为数据很多，如何变成批量实现？
2，如何进行批量删除，比如在该图中如何删除从V3开始一直到V54，观测值都缺失的这一条记录。3，数据的第一列第五行080719Melons（），下面空白的都应该变为这一项。但是因为再下面还有比如080720，怎么实现将他们分别赋给本组？
谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：January Melon 数据导入 原始数据 VaR 程序

原始数据，附件。

zhengbo8 发表于 2013-4-5 19:20
原始数据，附件。

原始的文档是csv格式的，提示我无法上传。

直接把后缀改为txt，再上传

zhengbo8 发表于 2013-4-5 19:25
直接把后缀改为txt，再上传

上传了，这只是原始数据的一部分。还有许多类似的表格。这些表都要合并在一起，所以求批量解决以上3个问题的方法。

yayacuiliu 发表于 2013-4-5 19:32
上传了，这只是原始数据的一部分。还有许多类似的表格。这些表都要合并在一起，所以求批量解决以上3个问题 ...

看不见附件！

zhengbo8 发表于 2013-4-5 19:34
看不见附件！

怎么会啊？不是在那个图下面吗？难道还需要什么设置吗？

yayacuiliu 发表于 2013-4-5 19:37
怎么会啊？不是在那个图下面吗？难道还需要什么设置吗？

问题是解决了，我没用宏，还不会，全用data步实现的，步挺多，不过思路还是很清晰的。
1、先把数据导入，生成数据集a
2、再运行

1. proc contents data = a out = b(keep = name) noprint; run;
   
2. 
   
3. data d;
   
4.     set b;
   
5.     if _N_ in (1,2,42) then delete;
   
6. run;
   
7. 
   
8. data c;
   
9.     set a;
   
10.     if _N_=2 then do;
    
11. 
    
12.         length code $ 1000;
    
13.         length varname $ 50;
    
14. 
    
15.         code=catx("|",of VAR3-VAR41);
    
16.         do i=1 to 39;
    
17.             varname=scan(code,i,"|");
    
18.             z=substr(varname,1,1);
    
19.             if z='2' then do;
    
20.                 varname="ALL_"||varname;
    
21.             end;
    
22.             output;
    
23. 
    
24.         end;
    
25. 
    
26.         drop var1-var42 i Country_by_: code;
    
27.     end;
    
28.    
    
29. run;
    
30. 
    
31. data e;
    
32.     merge d c;
    
33. run;
    
34. 
    
35. proc sql noprint;
    
36.     select compress(name||'='||varname) into:renames separated by ' '
    
37.             from e;
    
38. quit;
    
39. 
    
40. 
    
41. data f;
    
42.     set a;
    
43.     if _N_ in (1,2,3) then delete;
    
44.     missstr=strip(cat(of VAR3-VAR41));
    
45.     if missstr="" then delete;
    
46.     drop missstr;
    
47. run;
    
48. 
    
49. data g;
    
50.         set f(rename=(&renames.));
    
51. run;
    
52. 
    
53. proc datasets lib=work;
    
54.     delete b c d e f;
    
55. quit;

复制代码

我理解问题２和３好象应该是这样

/* code for Question 2 and 3 */

/* import the data */
PROC IMPORT OUT= WORK.yyy
   DATAFILE= "F:\MySAS\080719-20-2002-2004.csv"
            DBMS=CSV REPLACE;
     GETNAMES=YES;
     DATAROW=2;
RUN;

/* select the number of variables */
%let nvar=%sysfunc(attrn(%sysfunc(open(work.yyy,i)),nvars));

/* remove the empty row and fill the missing */
data zzz;
  length Country_by_Commodity___Imports $60;
  length var2 $26;
array v{*} $40 var3-var&nvar;
   set yyy;
   miss=0;
retain temp;
if not missing(Country_by_Commodity___Imports) then temp = Country_by_Commodity___Imports;
   else Country_by_Commodity___Imports=temp;
   do i = 1 to dim(v);
      if not missing(v(i)) then miss+1;
          end;
   if miss < 1 and _n_ ^=1 then delete;   /* remove _n_^=1 if don't want the first row */
   drop miss i temp;
run;
proc print data=zzz; title 'zzz'; run;

zhengbo8 发表于 2013-4-6 11:38
问题是解决了，我没用宏，还不会，全用data步实现的，步挺多，不过思路还是很清晰的。
1、先把数据导入 ...

谢谢了，我先学习了。