满足条件后如何将 SAS 数值复制到缺失字段中

Question

我有一组医院就诊日期和就诊时间不一致的记录，我想用其他日期的就诊时间填补缺失的就诊时间。

例如，一些访问日期有访问时间，而另一些则缺少访问时间。我的问题是：如果存在访问日期但没有访问时间，我怎样才能简单地将先前访问日期（带有访问时间）的访问时间打印到该丢失的插槽中？请查看 Have 和 Want 的图片以获得更好的说明和描述。

条件：如果访问时间为空白，则打印出现在表中其他地方的访问时间。如果访问时间为空白，并且文件中该日期的其他任何地方都没有出现访问时间，则将其保留为空白。

我很好奇是否需要合并一个循环或只是一个 if-then 打印语句。

'''if code_time ne then print the values in the last.code_time'''

data want;
infiles datalines;
length code_date $50. code_time $9.;
input code_date code_time;
datalines;
19-AUG-2010 .
19-AUG-2010 .
19-AUG-2010 16:56:00
20-AUG-2010 .
20-AUG-2010 17:12:00
23-AUG-2010 13:10:00
23-AUG-2010 13:19:00
26-AUG-2010 .
30-AUG-2010 19:30:00
09-SEP-2010 .
03-DEC-2010 .
;
quit;
run;

谢谢大家。 CB

有

想要

Answer 1

首先，将您的数据从字符转换为 SAS 日期和时间。这将使以后的工作更容易。更改您的 input 声明如下：

format code_date date9. code_time time.;
input code_date:date11. code_time:time.;

在执行数据步骤时，使用retain 语句来保持始终保持最新时间的运行值。如果您有不应该填写时间的特定条件，您可以添加该逻辑以将 last_code_time 设置为缺失或不覆盖值。

如果在遇到非缺失值之前需要填写值，您需要按 code_date descending code_time 重新对数据集进行排序，并使用相同的代码进行第二次传递。

data want;
    set have;
    by code_date;
    retain last_code_time;

    if(first.code_date) then call missing(last_code_time);

    if(NOT missing(code_time) ) then last_code_time = code_time;
        else code_time = last_code_time;

    drop last_code_time;
run;

如果您有 SAS/ETS，也可以使用 proc expand 以更少的代码完成此操作。

proc expand data=want out=have(drop=time);
    by code_date;
    convert code_time / method=step;
run;