如何在SAS中按ID保留Value列绝对值最大的记录？

现有如下结构的SAS数据集have，每个ID对应多条测量记录：

ID  Value 
   1   1
   1   2
   2   3
   2  -4 
   3  -5
   4   6

需要实现每个ID仅保留Value列绝对值最大的记录，最终结果如下：

ID  Value 
   1   2
   2  -4
   3  -5
   4   6

以下是两种高效的SAS实现方法：

方法一：PROC SQL 实现 #

通过子查询定位每个ID对应的最大绝对值，再匹配原数据中符合条件的记录，逻辑直观：

proc sql;
    create table want as
    select a.ID, a.Value
    from have a
    where abs(a.Value) = (select max(abs(Value)) from have b where b.ID = a.ID)
    /* 若同一ID存在多个绝对值相同的最大值（如ID=1有2和-2），删除下面的group by可保留所有符合条件的记录 */
    group by a.ID;
quit;

方法二：DATA步 + PROC SORT 实现 #

先计算绝对值字段，再按ID分组、绝对值降序排序，最后提取每组第一条记录：

/* 生成带绝对值字段的临时数据集 */
data temp;
    set have;
    abs_value = abs(Value);
run;

/* 按ID分组，绝对值从大到小排序 */
proc sort data=temp;
    by ID descending abs_value;
run;

/* 提取每个ID的第一条记录（即绝对值最大的记录） */
data want;
    set temp;
    by ID;
    if first.ID; /* 若需保留所有绝对值相同的最大值，删除此行即可 */
    drop abs_value; /* 移除临时字段 */
run;

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