SAS技术问询：基于第三列将单列转换为两列

我来帮你拆解这个转换过程，一步步实现你想要的结果：

第一步：清洗day字段，提取关键分组信息 #

首先，我们需要从原始的day列里拆分出两个核心信息：day的数字部分（比如从day_1_x里提取1）和类型标识（x/y）。这一步是后续分组合并的基础，因为我们需要按id和day数字来把同组的x、y值合并到一行。

用scan()函数就能轻松实现，代码如下：

data step1;
    set have;
    /* 提取day的数字部分，下划线分隔，取第2个片段并转为数值型 */
    day_num = input(scan(day, 2, '_'), best32.); 
    /* 提取x/y标识，下划线分隔，取第3个片段 */
    type = scan(day, 3, '_');
run;

这一步生成的step1数据集结构如下：

第二步：将长格式数据转换为宽格式 #

现在有了明确的分组依据（id+day_num）和列标识（type），可以用两种常用方法完成转换：

方法A：使用PROC TRANSPOSE（推荐，代码简洁高效） #

TRANSPOSE是SAS专门用于格式转换的过程步，指定分组键、列名来源和值来源即可：

proc transpose data=step1 out=want_temp(drop=_name_);
    by id day_num;  /* 按id和day数字分组 */
    id type;        /* 用type的值（x/y）作为新列名 */
    var col1;       /* 用col1的值填充新列 */
run;

/* 最后把day_num重命名为day，得到最终结果 */
data want;
    set want_temp;
    rename day_num = day;
run;

方法B：使用数据步+BY语句（适合自定义复杂逻辑） #

如果需要更灵活的控制，可以用BY分组配合RETAIN语句来保留同组的x/y值：

data want;
    set step1;
    by id day_num;
    /* 保留x和y的值，直到同组所有观测处理完成 */
    retain x y;
    /* 组内第一个观测时，初始化x和y为缺失值 */
    if first.day_num then do;
        x = .;
        y = .;
    end;
    /* 根据type给x或y赋值 */
    if type = 'x' then x = col1;
    else if type = 'y' then y = col1;
    /* 只输出组内最后一个观测，此时x和y都已赋值完成 */
    if last.day_num then output;
    /* 保留需要的列并重命名 */
    keep id day_num x y;
    rename day_num = day;
run;

为什么你的原始代码没得到预期结果？ #

你之前的代码只是逐行给x或y赋值，但没有对id和day的数字部分进行分组，所以每一行只会有一个非缺失值，无法把同id同day的两行合并成一行。通过上面的分步处理，先拆分出分组依据，再合并同组数据，就能得到你想要的宽格式结果了。

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