SAS中如何无需指定变量名对所有变量做1st、99th percentile缩尾处理

不需要显式指定任何变量名即可完成所有700个变量的批量处理，以下提供两种可行实现方式：

方案1：单步极简实现（推荐，使用PROC STDIZE） #

SAS原生的PROC STDIZE过程步内置分位截断能力，无需手动计算分位数或写循环逻辑，代码最简洁：

proc stdize data=你的输入数据集名 out=截断后的输出数据集名
    rearmonly method=percentile(pctl=1 99);
    var _numeric_;
run;

参数说明：

• rearmonly：仅执行上下限截断，不对变量做标准化缩放
• method=percentile(pctl=1 99)：指定截断的上下限为1%分位和99%分位
• var _numeric_：自动匹配数据集内所有数值类型变量，不需要手动罗列变量名

方案2：自定义灵活实现（使用数组+分位统计） #

如果需要自定义截断逻辑，可以用「先算分位数、再遍历替换」的方式实现：

第一步：计算所有数值变量的1%、99%分位值 #

/* 计算所有数值变量的分位统计结果并输出到专用数据集 */
proc means data=你的输入数据集名 noprint;
    var _numeric_;
    output out=quantile_tmp p1= p99= / autoname;
run;

第二步：遍历所有变量执行截断替换 #

data 截断后的输出数据集名;
    set 你的输入数据集名;
    /* 首次运行时读入所有分位统计值 */
    if _n_ = 1 then set quantile_tmp;
    /* 定义数组自动匹配所有原始数值变量 */
    array raw_vars[*] _numeric_;
    /* 定义数组匹配所有1%分位值（和原始变量顺序一一对应） */
    array p1_vars[*] *: _p1;
    /* 定义数组匹配所有99%分位值（和原始变量顺序一一对应） */
    array p99_vars[*] *: _p99;

    /* 遍历每个变量做截断 */
    do i = 1 to dim(raw_vars);
        if raw_vars[i] < p1_vars[i] then raw_vars[i] = p1_vars[i];
        else if raw_vars[i] > p99_vars[i] then raw_vars[i] = p99_vars[i];
    end;

    /* 清理临时变量 */
    drop i _type_ _freq_;
run;

注意事项 #

• 两种方案都会自动忽略字符类型变量，不会出现处理异常
• 如果需要排除指定的数值变量不参与截断，只需要把_numeric_修改为_numeric_ 不需要处理的变量名1 不需要处理的变量名2即可
• 分位计算的算法规则可以通过pctldef=参数调整，和SAS默认的分位计算逻辑完全一致

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