如何在sas中导入下列格式的数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

假如原始数据如下：
2000  1  row2 col3
1   2   3
4   5   6
2000  2  row2 col3
7   8   9
10  11  12
2001  1  row2 col3
1   2   3
4   5   6
2001  2  row2 col3
7   8   9
10  11  12

现在希望用sas程序导入为如下格式：

year  id   row x1  x2  x3
2000   1    1   1     2   3
2000   1    2   4     5   6
2000   2    1   7     8   9
2000   2    2  10  11  12
2001   1    1   1     2   3
2001   1    2   4     5   6
2001   2    1   7     8   9
2001   2    2  10  11  12

该怎么写程序。
谢谢！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：sas程序 原始数据 year ear 如何 程序

用input控制就可以。

1. data testds;
   
2.    input year id;
   
3.    do row=1 to 2;
   
4.     input x1 x2 x3;
   
5.     output;
   
6.    end;
   
7. datalines;
   
8. 2000  1  row2 col3
   
9. 1   2   3
   
10. 4   5   6
    
11. 2000  2  row2 col3
    
12. 7   8   9
    
13. 10  11  12
    
14. 2001  1  row2 col3
    
15. 1   2   3
    
16. 4   5   6
    
17. 2001  2  row2 col3
    
18. 7   8   9
    
19. 10  11  12
    
20. ;
    
21. proc print;
    
22. run;

复制代码

我感觉您需要的应该是大样本数据的导入和结构调整

如果是excel或者txt文件的话，可以上传部分样本，这样用data +infile直接导入，用datalines对于小样本好用，大样本就不行了

3# 论坛数据分析

给别人帮忙问的

你说的没有错是大数据集。

这个数据是stata格式的吗？打不开呀

论坛数据分析 发表于 2011-3-9 16:18
这个数据是stata格式的吗？打不开呀

文本格式的
写字板可以打开

try this, it works at least, don't know if speed is ok for large data sets.

filename myfile 'D:\test.txt';
data test(drop=temp col);
        infile myfile;
        retain year id;
        input year id temp $ @;
        if index(temp, 'row')>0 then do;
                input col $ @;
                do row=1 to 2;
                        input x1 x2 x3;
                        output;
                end;
        end;
run;

试了下你的 data，发现都是 row=36, column=72
所以我就直接用36和72写程序了，能读入你的数据，不过程序不够general
如果要想更加通用，可以读入 nrow, ncolumn， 控制读入row,column的size，不过这个改一下也不难
还有一个，就是 missing value, 因为每个的 missing value的label都一样是：1E-30，所以也很容易用data step控制，把这些值设成 missing .

程序如下，数据不大，几秒钟就读完了

data a;
infile 'c:\hadcrut3.dat' LRECL=1000;
input year id;
row=0;
do i=1 to 36;
        row+1;
        input x1-x72;
        output;
end;
run;

filename myfile 'D:\hadcrut3.dat';
data test2(drop=nouse maxrow rows maxcol cols missing);
        infile myfile lrecl=32767;
        retain year id;
        input year id nouse maxrow rows $ maxcol cols $ missing $18. @;
        if rows='rows' then do;
                missing=input(substr(missing, 9), 15.);
                do row=1 to 36;
                        input x1-x72;
                        output;
                end;
        end;
run;

my final version including:
1) read numbers of rows/columns for each data block (dynamic instead of hard coded input of 36/72)
2) read/change for missing values for each data block


filename myfile 'D:\hadcrut3.dat';

data _null_;
        infile myfile end=last;
        input year $ @;
        if length(year)=4 then do;
                block+1;
                input id nouse maxrow rows $ maxcol cols $ missing $18. ;
                call symput(compress(left(trim('missing_value'||put(block,4.)))),
                                input(substr(missing, 9), 15.));
                call symput(compress(left(trim('maxrow'||put(block,4.)))), maxrow);
                call symput(compress(left(trim('maxcol'||put(block,4.)))), maxcol);
        end;
        if last then do;
                call symput('countblock', put(block,4.));
        end;
run;
%macro read;
data test2(drop=nouse maxrow rows maxcol cols missing);
        infile myfile lrecl=32767;
        %do i=1 %to &countblock;
                %let x_maxcol=&&maxcol&i;
                retain year id;
                input year id nouse maxrow rows $ maxcol cols $ missing $18. @;
                if rows='rows' then do;
                        do row=1 to maxrow;
                                input x1-x&x_maxcol;
                               
                                %do j=1 %to &x_maxcol;
                                        if x&j =&&missing_value&i then x&j=.;
                                %end;
                               
                                output;
                        end;
                end;
        %end;
run;
%mend read;
%read