随访数据选择及数据转置

数据如下：

id	name	jy2	jieguo	cishu	DATE
1	郭锐	LDLC	3.57	1	2010-4-6
1	郭锐	TRIG	1	1	2010-4-6
1	郭锐	HDLC	1.3	1	2010-4-6
1	郭锐	APOA	1.1	1	2010-4-6
1	郭锐	APOB	0.82	1	2010-4-6
1	郭锐	LPa	281.68	1	2010-4-6
1	郭锐	CHOL	5.34	1	2010-4-6
2	唐启通	ALP	70	2	2010-3-4
2	唐启通	AST	30	2	2010-3-4
2	唐启通	BUN	6.39	2	2010-3-4
2	唐启通	URIC	382	2	2010-3-4
3	朱昕明	TRIG	5.19	1	2009-10-22
3	朱昕明	HDLC	0.98	1	2009-10-22
3	朱昕明	CREA	84	1	2009-10-22
3	朱昕明	ALP	75	1	2009-10-22
3	朱昕明	AST	55	1	2009-10-22
3	朱昕明	BUN	3.15	1	2009-10-22
3	朱昕明	URIC	349	1	2009-10-22
3	朱昕明	GLUC	4.94	1	2009-10-22
3	朱昕明	ADA	12	1	2009-10-22
3	朱昕明	APOA	1.41	1	2009-10-22
3	朱昕明	APOB	1.17	1	2009-10-22
3	朱昕明	LPa	31.68	1	2009-10-22
3	朱昕明	CHOL	7.61	1	2009-10-22
3	朱昕明	APOA	1.1	2	2012-1-12
3	朱昕明	APOB	1.24	2	2012-1-12
3	朱昕明	LPa	55.81	2	2012-1-12
3	朱昕明	CHOL	8.07	2	2012-1-12
4	周守源	APOA	0.92	4	2011-3-1
4	周守源	APOB	0.88	4	2011-3-1
4	周守源	LPa	304.53	4	2011-3-1
4	周守源	CHOL	6.71	4	2011-3-1
4	周守源	APOB	0.88	5	2011-3-15
4	周守源	LPa	304.53	5	2011-3-15
4	周守源	CHOL	6.71	6	2012-3-18
4	周守源	GGT	35	6	2012-3-18

1. data input;
   
2.         input id        name $        jy2 $ jieguo        cishu        DATE;
   
3.         informat name $10. jy2 $10. DATE yymmdd10.;
   
4.         format DATE yymmdd10.;
   
5.         cards;
   
6.         1        郭锐        LDLC        3.57        1        2010-4-6
   
7.         1        郭锐        TRIG        1        1        2010-4-6
   
8.         1        郭锐        HDLC        1.3        1        2010-4-6
   
9.         1        郭锐        APOA        1.1        1        2010-4-6
   
10.         1        郭锐        APOB        0.82        1        2010-4-6
    
11.         1        郭锐        LPa        281.68        1        2010-4-6
    
12.         1        郭锐        CHOL        5.34        1        2010-4-6
    
13.         2        唐启通        ALP        70        2        2010-3-4
    
14.         2        唐启通        AST        30        2        2010-3-4
    
15.         2        唐启通        BUN        6.39        2        2010-3-4
    
16.         2        唐启通        URIC        382        2        2010-3-4
    
17.         3        朱昕明        TRIG        5.19        1        2009-10-22
    
18.         3        朱昕明        HDLC        0.98        1        2009-10-22
    
19.         3        朱昕明        CREA        84        1        2009-10-22
    
20.         3        朱昕明        ALP        75        1        2009-10-22
    
21.         3        朱昕明        AST        55        1        2009-10-22
    
22.         3        朱昕明        BUN        3.15        1        2009-10-22
    
23.         3        朱昕明        URIC        349        1        2009-10-22
    
24.         3        朱昕明        GLUC        4.94        1        2009-10-22
    
25.         3        朱昕明        ADA        12        1        2009-10-22
    
26.         3        朱昕明        APOA        1.41        1        2009-10-22
    
27.         3        朱昕明        APOB        1.17        1        2009-10-22
    
28.         3        朱昕明        LPa        31.68        1        2009-10-22
    
29.         3        朱昕明        CHOL        7.61        1        2009-10-22
    
30.         3        朱昕明        APOA        1.1        2        2012-1-12
    
31.         3        朱昕明        APOB        1.24        2        2012-1-12
    
32.         3        朱昕明        LPa        55.81        2        2012-1-12
    
33.         3        朱昕明        CHOL        8.07        2        2012-1-12
    
34.         4        周守源        APOA        0.92        4        2011-3-1
    
35.         4        周守源        APOB        0.88        4        2011-3-1
    
36.         4        周守源        LPa        304.53        4        2011-3-1
    
37.         4        周守源        CHOL        6.71        4        2011-3-1
    
38.         4        周守源        APOB        0.88        5        2011-3-15
    
39.         4        周守源        LPa        304.53        5        2011-3-15
    
40.         4        周守源        CHOL        6.71        6        2012-3-18
    
41.         4        周守源        GGT        35        6        2012-3-18
    
42.         ;
    
43. run;
    
44. 
    
45. proc sql noprint;
    
46.         create table input2 as
    
47.         select distinct a1.name,a1.jy2,a1.jieguo,a1.date,a1.min_date from
    
48.                 (select id,min(date) as min_date,name,jy2,jieguo,date from input group by id) as a1
    
49.                         inner join
    
50.                 (select id,count(*) as nbr,date from
    
51.                         (select distinct id,date from input) group by id) as a2
    
52.                 on  a1.id=a2.id & a2.nbr>=2 & (a2.date-a1.min_date=0 or a2.date-a1.min_date>365) & a1.date=a2.date
    
53.                 order by a1.name,a1.date
    
54.                 ;
    
55. quit;
    
56. 
    
57. data input3;
    
58.         set input2;
    
59.         by name date;
    
60.         retain tmp tmp_dt;
    
61.         if first.name then do;
    
62.                 tmp=1;
    
63.                 tmp_dt=date;
    
64.         end;
    
65.         if tmp_dt~=date then do;
    
66.                 tmp=tmp+1;
    
67.                 tmp_dt=date;
    
68.         end;
    
69.         length tmp_name $10.;
    
70.         tmp_name=compress(jy2||tmp);
    
71.         format min_date yymmdd10.;
    
72. run;
    
73. 
    
74. proc transpose data=input3 out=output(drop=_name_);
    
75.         by name min_date;
    
76.         id tmp_name;
    
77.         var jieguo;
    
78. run;

复制代码

如果需要var1都在前面然后接着是var2,var3这样的排列可以做一点调整

要求：
1.如果cishu仅是1次的，如ID=1及ID=2的仅一次随访，删除这些数据；
2.离基线1年内的数据删除，如ID=4的对象，虽然有2次随访，但第二次随访离基线时间少于一年，删除，第二次随访数据；
3.筛选后的数据转置，具体是JY2、JIEGUO变量转置，变成如下结果

id	name	date	TRIG1	HDLC1	CREA1	ALP1	AST1	BUN1	URIC1	GLUC1	ADA1	APOA1	APOB1	LPa1	CHOL1	APOA2	APOB2	LPa2	CHOL2	GGT2
3	朱昕明	2009-10-22	5.19	0.98	84	75	55	3.15	349	4.94	12	1.41	1.17	31.68	7.61	1.1	1.24	55.81	8.07
4	周守源	2011-3-1										0.92	0.88	304.53	6.71		0.88		6.71	35

基线是什么，另外为什么周守源 APOA=0.92的次数是第4次？要和朱昕明APOA=1.41，次数为第1次的放在同一列APOA1中？

readhistory 发表于 2012-4-17 20:05
基线是什么，另外为什么周守源 APOA=0.92的次数是第4次？要和朱昕明APOA=1.41，次数为第1次的放在同一列APO ...

就是各ID的最早一次cishu，比如id=4的cishu=4就是基线