如何给变量加label

1. data aaa;
   
2. input label1$ var1 label2$ var2;
   
3. cards;
   
4. a 1 b 4
   
5. a 2 b 5
   
6. a 3 b 6
   
7. ;
   
8. run;
   
9. 
   
10. %macro bbb;
    
11. %let vars=var1 var2;
    
12. data aaa1;
    
13.         set aaa;
    
14.         %let i=1;
    
15.         %do %while(%scan(&vars.,&i.) NE %str());
    
16.                 %let var=%scan(&vars,&i);   
    
17.                 if _n_=1 then call symput('vlabel',label&i);
    
18.                 %put &vlabel;
    
19.                 label &var="vlabel";
    
20.                 %let i=%eval(&i+1);
    
21.     %end;
    
22. run;
    
23. 
    
24. %mend;
    
25. 
    
26. %bbb;

复制代码

label1 label2 取值是唯一的，先根据label1的值给var1 加变量标签，label2的值给var2加变量标签，程序错在哪？如何修改？谢谢！

1. data aaa;
   
2.     input label1$ var1 label2$ var2;
   
3.     cards;
   
4. a 1 b 4
   
5. a 2 b 5
   
6. a 3 b 6
   
7. ;
   
8. run;
   
9. options mlogic mprint symbolgen;
   
10. %macro bbb;
    
11. %let vars=var1 var2;
    
12. %let n=%eval(%sysfunc(countc("&vars",' '))+1);
    
13. 
    
14.     data _null_;
    
15.         set aaa;
    
16.   %do j = 1 %to &n ;
    
17.         call symput("vlabel&j",label&j);
    
18.   %end;
    
19.     run;
    
20. 
    
21.     data aaa1;
    
22.         set aaa;
    
23.         %let i =1;
    
24.         %do %while (%scan(&vars. , &i.) ne %str());
    
25.             %let var=%scan(&vars,&i);
    
26.             label &var= %nrbquote(&&vlabel&i);
    
27.             %let i=%eval(&i +1);
    
28.         %end;
    
29.     run;
    
30. %mend;
    
31. %bbb

复制代码

hope this will help you

继续求助！

继续求助！

何必不淡定。 发表于 2015-4-21 10:44
hope this will help you

谢谢！
能否写在一个循环内？

首先，我不太理解数据的格式。可能楼主是只是做一个测试。但是一个var只能对应一个label，可能是我驽钝，不太理解楼主给label多个取值的用意（是想循环label？）。
针对楼主的代码，有2个小问题：
1：call symput()生成的宏变量不能在该data步调用，除非用symget，但symget似乎很难在这个语境使用。symget是解析该抓取位置的变量值所对应的宏变量值
2： label &var="vlabel";可能是楼主笔误，漏了&  

愚见。

何必不淡定。 发表于 2015-4-23 21:48
首先，我不太理解数据的格式。可能楼主是只是做一个测试。但是一个var只能对应一个label，可能是我驽钝，不 ...

Book1.xls (15.5 KB)

2015-4-26 19:22:33 上传

将excel中的第一列中的值作为第2列变量的label，结果出错！

ERROR: 值“）”是无效的 SAS 名。
WARNING: 没有解析宏 ） 的调用。


谢谢！

dxystata 发表于 2015-4-26 19:24
将excel中的第一列中的值作为第2列变量的label，结果出错！

ERROR: 值“）”是无效的 SAS 名。

1. data a ;
   
2.     input subject var $ value ;
   
3.     cards;
   
4. x y  z
   
5. 1 a 85.4
   
6. 1 a 67.14
   
7. 1 b 77.1
   
8. 1 b 66.2
   
9. ;
   
10. run;
    
11. data a ;
    
12.     set a;
    
13.     if _n_>1;
    
14. run;
    
15. /*我的理解：第一行为机器自动跑出来的奇葩label,需要删掉。
    
16.             后面的obs依次为受试对象，检测项目，检测结果。
    
17.             现在需要把第二列的名称作为label赋给结果。
    
18. */
    
19. 
    
20. /*data步的写法*/
    
21. 
    
22. data a1 ;
    
23.     merge a(where=( index(var1 ,"a")>0) rename=(var=var1 value=value1))
    
24.           a(where=( index(var2, "b")>0) rename=(var=var2 value=value2));
    
25.     by subject;
    
26. run;
    
27. data _null_ ;
    
28.     set a1;
    
29.     call symput ("label1",var1);
    
30.     call symput ("label2",var2);
    
31. run;
    
32. data c ;
    
33.     set a1 ;
    
34.     label value1="&label1"
    
35.           value2="&label2";
    
36.     drop var: ;
    
37. run;
    
38. 
    
39. /*macro的写法*/
    
40. %macro label ;
    
41. proc sql ;
    
42.     select countn(distinct var) into: nlabel from a;
    
43.     select distinct var  into :label separated by "," from a ;
    
44. quit;
    
45. %do i = 1 %to &nlabel ;
    
46.   %let label&i = %scan(%nrbquote(&label),&i,",");
    
47.     data b&i (rename=(value=value&i));
    
48.         set a ;
    
49.         if var = "&&label&i"  ;
    
50.         label value= &&label&i;
    
51.     run;
    
52. %end;
    
53. data wanted (drop=var);
    
54.     merge b:;
    
55.     by subject;
    
56. run;
    
57. %mend label;
    
58. %label

复制代码

hope this will help you