解决实际问题之填补缺失的列变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. /*请教sas程序，假设有下列数据，这是双向关系数据表，
   
2. 本应该是n*n的数据模式，但因为数据问题，导致列变量缺少，
   
3. 现在想做的是把他变成N*n的形式，也就是添加a1,a5,a6,a8,a9,a12,a13列，
   
4. 数值可以直接设为0。这个数据表我列的比较简单，真实的数据是行有200+，
   
5. 列有100+，所以手工添加列变化过于复杂，恳请各位指教，谢谢!*/
   
6. 
   
7. /*解决实际问题之填补缺失的列变量*/
   
8. data nm;
   
9. input name $ a2 a3 a4$ a7;
   
10. cards;
    
11. a1 . 0    c    0
    
12. a2 . 0.23 c    0
    
13. a3 c 0    c    0
    
14. a4 . 0    c    0
    
15. a5 . 0    c    0
    
16. a6 . 0    c    1
    
17. a7 . 0    c    1
    
18. ;
    
19. 
    
20. /*取列变量name所有的值*/
    
21. proc sql noprint;
    
22. select name into :rowname separated by ' '
    
23. from nm;
    
24. quit;
    
25. 
    
26. %put &rowname;
    
27. 
    
28. /*删除列变量名name*/
    
29. data nm1;
    
30. set nm;
    
31. drop name;
    
32. run;
    
33. 
    
34. /*取列变量名在行变量名(总集)的缺失变量值*/
    
35. proc contents data=nm1 out=list;run;
    
36. proc sql noprint;
    
37. create table short as
    
38. select name
    
39. from nm
    
40. where name not in (select name from list);
    
41. quit;
    
42. 
    
43. /*将缺失变量名赋值给宏变量*/
    
44. proc sql noprint;
    
45. select name into :shortname separated by ' '
    
46. from short;
    
47. quit;
    
48. 
    
49. %put &shortname;
    
50. 
    
51. /*讲新增变量(缺失变量)赋值为0*/
    
52. data nn;
    
53. set nm;
    
54. retain &shortname 0;
    
55. run;
    
56. 
    
57. /*排序和观测变量名一致，即得到NxN方阵(矩阵)*/
    
58. data nn;
    
59. retain name &rowname;
    
60. set nn;
    
61. run;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：实际问题 proc sql separate contents Content