SAS中的复杂数据重构问题

数据跳跃哈希对象对于遍历身份跟踪数据中的路径非常有效。假定每个Card_ID在所有客户中都是唯一的，并且每个New_Card_ID值在数据集中都有对应的Card_ID值，那么此代码将在无数重发中找到唯一的路径ID。

data paths(keep=card_id path_id); 
    if 0 then set have; * prep pdv; 
    call missing (Path_ID); 
    * for tracking the tip of the card_id trail; 
    DECLARE HASH currentCard(hashexp: 9); 
    currentCard.defineKey ('Card_ID'); 
    currentCard.defineData ('Card_ID', 'Path_ID'); 
    currentCard.defineDone(); 
    * for tracking everything up to the tip (segment); 
    DECLARE HASH replacedCard(hashexp:10); 
    replacedCard.defineKey ('New_Card_ID');  
    replacedCard.defineData('Card_ID'); 
    replacedCard.defineDone(); 
    * fill the two hashes; 
    do until (lastrow); 
    set have (keep=Card_ID New_Card_ID) end=lastrow; 
    if missing(New_Card_ID) then 
     Path_ID + 1; 
    if missing(New_Card_ID) 
     then currentCard.add(); 
     else replacedCard.add(); 
    end; 
    * for each tip of a path output the tip and all its segments; 
    declare hiter tipIter('currentCard'); 
    do while (tipIter.next() = 0); 
    output; * tip; 
    do while (replacedCard.find(key:Card_ID) = 0); 
     output; * segment; 
    end; 
    end; 
    stop; 
run; 

如果您真的需要Seq = 1..N在客户内您将不得不做额外的排序和合并。

我的2009年NESUG论文"Using HASH to find a sum over a transactional path"有关于关联交易的类似讨论。

数据跳跃你所寻找的是一个连接成分分析。如果你有它，PROC OPTNET可以给你你想要的。

不幸的是，它不支持BY语句，因此您在使用它来分组卡片后必须生成序号。

首先根据卡数据创建节点“从/到”数据。

data nodes; 
set test; 
node = put(_n_,best12.); 
from = card_id; 
to = new_card_id; 
if to = . then to=from; 
run; 

然后运行分析。

proc optnet data_links=nodes out_nodes=nodes_out; 
concomp; 
run; 

这会生成卡片及其组（变量concomp）的列表。

将该组加回原始数据并对其进行分类。

proc sql noprint; 
create table want as 
select a.customer, 
     a.First_Issue_Date, 
     a.Card_Issue_Date, 
     a.Card_ID, 
     b.concomp 
    from test as a 
     left join 
     nodes_out as b 
    on a.card_id = b.node 
    order by customer, concomp, Card_Issue_Date; 
quit; 

现在都只是在排列1，2，...，N你想要可以使用数据步骤把这些信息并创建seq_no

data want(drop=concomp); 
set want; 
by customer concomp; 
retain seq_no ; 
if first.customer then 
    seq_no = 0; 
if first.concomp then 
    seq_no = seq_no + 1; 
run;