如何在SAS的Data Step中根据列值将一行拆分为多行？

嘿，这个需求用SAS Data Step来实现其实非常直观，核心就是针对X和Y每一列，判断它的值是否为1，只要是1就输出一行对应列名的记录就行。下面直接上代码和解释：

实现代码 #

/* 假设原始数据集名为have，输出数据集名为want */
data want;
    set have;
    /* 当X为1时，生成R='X'的行 */
    if X = 1 then do;
        R = 'X';
        output;
    end;
    /* 当Y为1时，生成R='Y'的行 */
    if Y = 1 then do;
        R = 'Y';
        output;
    end;
run;

代码逻辑说明 #

• 首先通过set have逐行读取原始数据；
• 第一个判断分支：如果当前行的X值是1，就给新变量R赋值为'X'，然后用output语句把这一行写入输出数据集；
• 第二个判断分支：同理，当Y值是1时，给R赋值为'Y'并输出；
• 因为题目明确说明X和Y不会同时为0，所以每一行原始数据至少会触发一次output，不会出现无记录输出的情况；
• 当某一行X和Y都为1时（比如ID=3的情况），两个分支都会触发，自然就拆分成了两行，完全符合你想要的结果。

拿你给出的示例数据测试，运行这段代码后，输出的want数据集就会和你期望的结果完全一致~

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