如何在SAS中按行月份映射月度数据（替代冗长CASE WHEN）

原始数据（长格式） #

目标数据（宽格式） #

解决方案 #

方法1：用PROC TRANSPOSE快速实现 #

这是最简洁的方式，无需写冗长的CASE WHEN，SAS的PROC TRANSPOSE专门处理这类长转宽需求：

/* 假设原始数据集名为balance_long */
proc transpose data=balance_long out=balance_wide (drop=_name_) prefix=;
    by ID Month;
    id Month;
    var Balance;
run;

代码解释：

• by ID Month：按ID和原始Month列分组，保留这两列作为每行的标识。
• id Month：把Month列的每个取值（比如Apr-19）直接作为新的列名。
• var Balance：指定要转置到新列中的数值字段。
• out=balance_wide (drop=_name_)：输出结果数据集，同时删除自动生成的_name_列（无实际用途）。
• prefix=：因为直接用月份作为列名，不需要添加前缀，所以留空。

运行后得到的balance_wide就是你需要的目标表，匹配的月份列会填充对应余额，其他列自动为空。

方法2：用数组动态处理（适配未知月份） #

如果数据里的月份不固定，或者需要更灵活的逻辑，用数组可以自动适配所有月份：

/* 先提取所有唯一月份，存入宏变量 */
proc sql noprint;
    select distinct Month into :months separated by ' ' from balance_long;
quit;

/* 生成目标宽表 */
data balance_wide;
    set balance_long;
    /* 定义数组，元素为所有月份列 */
    array month_cols[*] &months.;
    /* 初始化所有月份列为空 */
    do i=1 to dim(month_cols);
        month_cols[i] = .;
    end;
    /* 匹配当前Month对应的列，填充Balance */
    month_cols[vname(month_cols, whichc(Month, &months.))] = Balance;
    drop i;
run;

代码解释：

1. PROC SQL提取所有唯一月份，存入宏变量&months.，数组可自动生成对应列名，无需手动编写每个月份。
2. DATA步中定义数组month_cols，包含所有月份列。
3. 先循环清空所有月份列，避免残留无效值。
4. 用whichc找到当前Month在数组中的位置，给对应列赋值Balance。

这种方法无需修改代码就能处理新增的月份，扩展性更强。

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