SAS新手求助：将多交易行转换为基础表的高效实现方法

嘿，作为SAS新手碰到这种批量转表的问题太正常了——手动敲几十周的变量绝对会让人崩溃！我给你几个实用的高效思路，帮你摆脱重复劳动：

这是SAS处理长转宽最常用的工具，尤其适合你这种有多个周数、多个指标的场景。假设你的原始数据是长格式（比如每行是「客户ID + 周数 + 指标名称 + 指标值」），可以这么操作：

/* 先确保数据按客户和周数排序 */
proc sort data=your_raw_data;
    by customer_id week_num metric_name;
run;

/* 转置：按客户+指标分组，把周数转成列 */
proc transpose data=your_raw_data out=temp_table prefix=week_;
    by customer_id metric_name;
    id week_num; /* 周数作为列名后缀，比如week_1、week_2... */
    var metric_value; /* 要转置的指标数值 */
run;

/* 再次转置，把不同指标的周列合并到同一行 */
proc transpose data=temp_table out=final_base_table(drop=_name_);
    by customer_id;
    id metric_name;
    var week_:; /* 匹配所有以week_开头的列 */
run;

全程不用手动写每个周的变量，SAS会自动帮你生成所有周的指标列。

如果你的原始数据是每行包含客户一周的所有指标（比如「客户ID + 周数 + freq + avg + var1 + var2...」），用数组循环会更灵活，还能顺便做数据清洗：

proc sort data=your_raw_data;
    by customer_id week_num;
run;

data final_base_table;
    /* 用数组批量定义要生成的列，比如freq1-freq52对应52周的freq */
    array freq_arr[52] freq1-freq52;
    array avg_arr[52] avg1-avg52;
    array var1_arr[52] var1_1-var1_52;
    array var2_arr[52] var2_1-var2_52;

    /* 按客户分组，把每周的指标值对应到数组位置 */
    do until(last.customer_id);
        set your_raw_data;
        by customer_id;
        /* 把当前周的指标赋值给数组的第N个元素（N是周数） */
        freq_arr[week_num] = freq;
        avg_arr[week_num] = avg;
        var1_arr[week_num] = var1;
        var2_arr[week_num] = var2;
    end;

    /* 只保留每个客户的最后一行（此时所有周的指标都已填充） */
    if last.customer_id;
    /* 删除不需要的原始变量 */
    drop week_num freq avg var1 var2;
run;

如果你更习惯SQL语法，用条件聚合配合宏循环，能自动生成几十周的列定义，不用手动复制粘贴：

%macro generate_base_table(max_week=52);
proc sql;
    create table final_base_table as
    select customer_id,
           /* 循环生成所有周的指标列 */
           %do i=1 %to &max_week.;
               max(case when week_num=&i. then freq else . end) as week&i._freq,
               max(case when week_num=&i. then avg else . end) as week&i._avg,
               max(case when week_num=&i. then var1 else . end) as week&i._var1,
           %end;
           /* 最后一个变量去掉末尾逗号，避免语法错误 */
           max(case when week_num=&max_week. then var2 else . end) as week&max_week._var2
    from your_raw_data
    group by customer_id;
quit;
%mend;

/* 调用宏，比如处理52周的数据 */
%generate_base_table(max_week=52);

小提示 #

不管用哪种方法，先把你的原始数据整理成标准长格式（每行对应一个客户、一个周、一个指标的数值），后续的转置操作会顺畅很多。如果原始数据格式不规整，可以先用DATA步做预处理。

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