如何得到这样的数据集

1. data aaa;
   
2. input id treat$ visit x;
   
3. cards;
   
4. 1 AB 2 1
   
5. 1 AB 6 2
   
6. 1 AB 10 3
   
7. 2 BA 2 4
   
8. 2 BA 6 5
   
9. 2 BA 10 6
   
10. ;
    
11. run;

复制代码

以id=1为例
visit=2为AB中A的基线，visit=6为A的疗后数据
visit=6为AB中B的基线，visit=10为B的疗后数据

希望得到的数据
id treat treat1 x0 x1;
1   AB    A     1  2
1   AB    B     2  3
2   BA    B     4  5
2   AB    A     5  6

1. data a;
   
2. input id treat$ visit x;
   
3. cards;
   
4. 1 AB 2 1
   
5. 1 AB 6 2
   
6. 1 AB 10 3
   
7. 2 BA 2 4
   
8. 2 BA 6 5
   
9. 2 BA 10 6
   
10. ;
    
11. run;
    
12. proc sort;by id treat visit;run;
    
13. 
    
14. data b2 b6 b10;
    
15. set a;
    
16. if visit=2 then output b2;
    
17. if visit=6 then output b6;
    
18. if visit=10 then output b10;
    
19. run;
    
20. 
    
21. data f1;
    
22. merge b2(rename=(x=x0 visit=visit2))
    
23. b6(in=a rename=(x=x1 visit=visit6));
    
24. by id treat;
    
25. if a;
    
26. length treat1 $1.;
    
27. treat1='A';
    
28. run;
    
29. data f2;
    
30. merge b6(rename=(x=x0 visit=visit6))
    
31. b10(in=a rename=(x=x1 visit=visit10));
    
32. by id treat;
    
33. if a;
    
34. length treat1 $1.;
    
35. treat1='B';
    
36. run;
    
37. data final(drop=visit:);
    
38. set f1 f2;
    
39. proc sort;by id treat treat1;
    
40. run;

复制代码

data wanted;
set aaa;
retain treat1 x0 x1;
x1=x;
x0=lag(x1);
if visit=6 then treat1=substr(treat,1,1);
else if visit=10 then treat1=substr(treat,2,1);
if lag(id) ne id then delete;
drop x visit;
run;

data aaa1;
set aaa;
if visit=6 then  treat1=substr(treat, 1,1);
else if visit>6 then  treat1=substr(treat, 2,1);
run;
proc sort; by id treat1;run;

data baseline(drop=visit);
set aaa(rename=(x=x0));
if visit=2 then  do;        treat1=substr(treat, 1,1); output; end;
else if visit=6 then do;  treat1=substr(treat, 2,1); output; end;
run;
proc sort; by id treat1;run;

data aaa2(rename=(x=x1)); ;
merge aaa1(in=a) baseline(in=b);
by id treat1;
if a and b;
run;
proc sort data=aaa2 out=aaa3(drop= visit);
by id visit;
run;

lovexialulu 发表于 2017-2-19 09:28

请跟帖以出售60论坛币的形式，我来购买，谢谢！

sherry123 发表于 2017-2-20 07:52
data aaa1;
set aaa;
if visit=6 then  treat1=substr(treat, 1,1);

请跟帖以出售60论坛币的形式，我来购买，谢谢！

根据楼主提示，申请奖励 ， 谢谢！ ：）

sherry123 发表于 2017-2-21 05:31
根据楼主提示，申请奖励 ， 谢谢！ ：）

data b;
set aaa(drop=visit);
x0=lag(x);
run;
proc sort data=b;by treat;run;
data b1(rename=(x=x1));
set b;
by treat;
if first.treat then delete;
run;

data b;
set aaa;
x0=lag(x);
if visit=6 then treat1=substr(treat,1,1);
else if visit=10 then treat1=substr(treat,2,1);
run;
proc sort data=b;by treat;run;
data b1(rename=(x=x1));
set b;
by treat;
if first.treat then delete;
drop visit;
run;
刚少了treat1哈哈。