SAS数据处理异常：同一受试者同一访视仍存在lbperf=1和0的记录

需求翻译 #

衍生LBTETSTCD/LBTEST的规则明确：

• 当lbperf="0"时，每个受试者每个访视只保留一条记录；
• 若同一受试者同一访视中存在至少一条lbperf="1"的记录，则删除该访视下所有lbperf="0"的记录。

原代码问题 #

你写的代码逻辑冗余且存在判断冲突，多个if分支会同时触发输出，导致同一访视下的0和1记录都被保留。另外by subject module visit lbperf的排序方式，让first.visit/last.visit无法准确识别同一访视下是否存在不同的lbperf值，最终引发问题。

修正后的代码方案 #

给你两种可靠的写法，按需选择：

方法一：先标记再筛选（逻辑清晰易维护） #

/* 第一步：给每个受试者-访视组打标记，标记该组是否有lbperf=1的记录 */
data lb_flag;
    set lb1_s;
    by subject visit; /* 按受试者、访视分组 */
    retain has_perf1 0; /* 保留组内标记，初始为0 */
    if first.visit then has_perf1 = 0; /* 新访视组，重置标记 */
    if lbperf = "1" then has_perf1 = 1; /* 组内只要有1，标记设为1 */
    if last.visit then output; /* 仅保留每组最后一条记录，携带标记 */
run;

/* 第二步：根据标记筛选原数据 */
data lb2;
    merge lb1_s lb_flag(keep=subject visit has_perf1);
    by subject visit;
    if module = "LB" then do;
        /* 组内有1，只保留lbperf=1的记录 */
        if has_perf1 = 1 then do;
            if lbperf = "1" then output;
        end;
        /* 组内无1，只保留该访视第一条lbperf=0的记录 */
        else do;
            if lbperf = "0" and first.visit then output;
        end;
    end;
    else output; /* 非LB模块的记录直接输出 */
run;

方法二：单步扫描（效率更高，适合大数据量） #

无需额外生成标记数据集，在一个数据步内完成扫描和筛选：

data lb2;
    set lb1_s;
    by subject visit;
    retain has_perf1;
    if first.visit then do;
        has_perf1 = 0;
        /* 扫描当前访视组，检查是否存在lbperf=1 */
        do _n_ = _n_ by 1 until(last.visit);
            set lb1_s(keep=subject visit lbperf) point=_n_;
            if lbperf = "1" then do;
                has_perf1 = 1;
                leave; /* 找到1就停止扫描，节省资源 */
            end;
        end;
        _n_ = _n_ - 1; /* 重置指针回到当前记录，继续处理 */
    end;

    if module = "LB" then do;
        if has_perf1 then do;
            if lbperf = "1" then output;
        end;
        else do;
            if lbperf = "0" and first.visit then output;
        end;
    end;
    else output;

    if last.visit then call missing(has_perf1); /* 清空标记，避免影响下一组 */
run;

方案说明 #

两种方法都先明确每个访视组的核心状态：

• 只要组内存在lbperf=1，就只保留所有1的记录；
• 组内无1时，仅保留该访视第一条0的记录。
  彻底避免了同一访视下同时存在0和1记录的问题。

内容的提问来源于stack exchange，提问作者Mutiso