解決實(shí)際問(wèn)題之填補(bǔ)缺失的列變量

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個(gè)全額獎(jiǎng)學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問(wèn)題回答

經(jīng)管之家送您兩個(gè)論壇幣！

+2 論壇幣

1. /*請(qǐng)教sas程序，假設(shè)有下列數(shù)據(jù)，這是雙向關(guān)系數(shù)據(jù)表，
   
2. 本應(yīng)該是n*n的數(shù)據(jù)模式，但因?yàn)閿?shù)據(jù)問(wèn)題，導(dǎo)致列變量缺少，
   
3. 現(xiàn)在想做的是把他變成N*n的形式，也就是添加a1,a5,a6,a8,a9,a12,a13列，
   
4. 數(shù)值可以直接設(shè)為0。這個(gè)數(shù)據(jù)表我列的比較簡(jiǎn)單，真實(shí)的數(shù)據(jù)是行有200+，
   
5. 列有100+，所以手工添加列變化過(guò)于復(fù)雜，懇請(qǐng)各位指教，謝謝!*/
   
6. 
   
7. /*解決實(shí)際問(wèn)題之填補(bǔ)缺失的列變量*/
   
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. /*排序和觀測(cè)變量名一致，即得到NxN方陣(矩陣)*/
    
58. data nn;
    
59. retain name &rowname;
    
60. set nn;
    
61. run;

復(fù)制代碼

掃碼加我 拉你入群

請(qǐng)注明：姓名-公司-職位

以便審核進(jìn)群資格，未注明則拒絕

分享0 收藏0 回帖

關(guān)鍵詞：實(shí)際問(wèn)題 proc sql separate contents Content