使用first标记基于后续出现的值。保留等

时间：2017-04-03 15:29:55

标签： sas sas-macro

谢谢你能帮助我的人。我有一个数据集如下：

data smp;
infile datalines dlm=',';
informat identifier $7. trx_date $9. transaction_id $13. product_description $50. ;
input identifier $ trx_date transaction_id $ product_description $ ;
datalines;
Cust1,11Aug2016,20-0030417313,ONKEN BIOPOT F/FREE STRAWBERRY
Cust1,11Aug2016,20-0030417313,ONKEN BIOPOT F/FREE STRAWBERRY
Cust1,11Aug2016,20-0030417313,ONKEN BIOPOT FULL STRAWB/GRAIN
Cust1,11Aug2016,20-0030417313,RACHELS YOG GREEK NAT F/F/ORG
Cust1,03Nov2016,23-0040737060,RACHELS YOG GREEK NAT F/F/ORG
Cust3,13Feb2016,39-0070595440,COLLECT YOG LEMON
Cust3,21Jun2016,34-0050769524,AF YOG FARMHOUSE STRAWB/REDCUR
Cust3,21Jun2016,34-0050769524,Y/VALLEY GREEK HONEY ORGANIC
Cust3,21Jun2016,34-0050769524,Y/VALLEY THICK LEMON CURD ORG
Cust3,21Jun2016,34-0050769524,Y/VALLEY THICK YOG FRUITY FAVS
Cust3,21Jun2016,34-0050769524,Y/VALLEY THICK YOG STRAWB ORG
Cust3,26Jun2016,39-0430106897,TOTAL GREEK YOGURT 0%
Cust3,14Aug2016,54-0040266755,M/BUNCH SQUASHUMS STRAW/RASP
Cust3,14Aug2016,54-0040266755,MULLER CORNER STRAWBERRY
Cust3,14Aug2016,54-0040266755,TOTAL GREEK YOGURT 0%
Cust3,22Aug2016,54-0050447336,M/BUNCH SQUASHUMS STRAW/RASP
;

对于每个客户（以及他们基于transaction_id的每次购买），我想要在下次访问（仅限他们的下一次访问）期间标记每个将被回购的产品。因此，在上面的数据集中，正确的标志位于第4,12和13行，因为这些产品是在下次客户访问时购买的（我们只看下次访问）。

我正在尝试使用以下程序：

proc sort data = smp out = td;
by descending identifier transaction_id product_description;
run;

DATA TD2(DROP=tmp_product);
SET td;
BY identifier transaction_id product_description;
RETAIN tmp_product;
IF FIRST.product_description and first.transaction_id THEN DO;
  tmp_product = product_description;
END;
ATTRIB repeat_flag FORMAT=$1.;
IF NOT FIRST.product_description THEN DO;
IF tmp_product EQ product_description THEN repeat_flag ='Y';
ELSE repeat_flag = 'N';
END;
RUN;

proc sort data = td2;
by descending identifier transaction_id product_description;
run;

但它不起作用？如果有人可以帮助它，那将是晶圆厂。 祝福

4 个答案:

答案 0 :(得分：1)

其他方法是在原始数据集和临时数据集中生成虚拟组。在原始数据集中，组按每个客户的访问时间排序，在临时数据集中，组从每个客户的SECOND访问时间开始排序，临时数据集中的组号与原始数据集的组号相同，但其访问时间是下一个访问原始数据集。使用虚拟组，很容易找到在下次访问哈希表时重新购买的相同产品。 

proc sort data=smp;
by identifier trx_date;
run;

data have(drop=_group) temp(drop=group rename=(_group=group));
   set smp;
   by identifier trx_date; 
   if first.identifier then do;
     group=1; _group=0;
   end;
   if dif(trx_date)>0 then do;
      group+1; _group+1;
   end;
   if _group^=0 then output temp; 
   output have;
 run;

data want;
    if 0 then set temp;
    if _n_=1 then do;
       declare hash h(dataset:'temp');
       h.definekey('identifier','group','product_description');
       h.definedata('product_description');
       h.definedone();
    end;
    set have;
    flag=(h.find()=0);
    drop group;
run;

答案 1 :(得分：0)

下面的方法将在排序后“向前看”到下一行（与LAG相对），这样您就可以将比较带到同一行以获得简单的逻辑：

** convert character date to numeric **;
data smp1; set smp;
    TRX_DATE_NUM = input(TRX_DATE,ANYDTDTE10.);
    format TRX_DATE_NUM mmddyy10.;
run;

** sort **;
proc sort data = smp1;
    by IDENTIFIER PRODUCT_DESCRIPTION TRX_DATE_NUM;
run;

** look ahead at the next observations and use logic to identify flags **;
data look_ahead;
    set smp1;
    by IDENTIFIER;
    set smp1 (firstobs = 2 
                keep = IDENTIFIER PRODUCT_DESCRIPTION TRX_DATE_NUM 
                rename = (IDENTIFIER = NEXT_ID PRODUCT_DESCRIPTION = NEXT_PROD TRX_DATE_NUM = NEXT_DT))
        smp1 (obs = 1 drop = _ALL_);
    if last.IDENTIFIER then do;
        NEXT_ID = "";
        NEXT_PROD = "";
        NEXT_DT = .;
    end;
run;

** logic says if the next row is the same customer who bought the same product on a different date then flag **;
data look_ahead_final; set look_ahead;
    if IDENTIFIER = NEXT_ID and NEXT_PROD = PRODUCT_DESCRIPTION and TRX_DATE_NUM ne NEXT_DT then FLAG = 1;
        else FLAG = 0;
run;

答案 2 :(得分：0)

有几种方法可以做到这一点;我认为最简单的理解是，虽然仍然具有合理的性能水平，但是按降序日期顺序对数据进行排序，然后使用数组来存储最后一个trx_date的product_descriptions。

这里我使用的是二维数组，其中第一维只是1/2值;每个trx_date同时加载数组的一行并检查数组的另一行（使用_array_switch确定正在加载/检查哪一行）。

你可以用哈希表做同样的事情，它会快得多，并且在某些方面可能会稍微复杂一些;如果您熟悉哈希表并希望看到该解决方案评论，我或其他人可以提供它。

您也可以使用SQL来执行此操作，我怀疑这是最常见的解决方案，但我无法使其工作，因为它在子查询中的子查询与我接近的方式有一些复杂性它，我显然不够好。

这是阵列解决方案。将prods的第二个维度设置为数据的合理最大值 - 它甚至可能是数千个，这是一个临时数组，并且不会使用太多内存，因此设置为32000或任何不重要的事情。

proc sort data=smp;
  by identifier descending trx_date ;
run;

data want;
  array prods[2,20] $255. _temporary_;
  retain _array_switch 2;
  do _n_ = 1 by 1 until (last.trx_date);
    set smp;
    by identifier descending trx_date;
    /* for first row for an identifier, clear out the whole thing */
    if first.identifier then do;
      call missing(of prods[*]);
    end;

    /* for first row of a trx_date, clear out the array-row we were looking at last time, and switch _array_switch to the other value */
    if first.trx_date then do;
      do _i = 1 to dim(prods,2);
        if missing(prods[_array_switch,_i]) then leave;
        call missing(prods[_array_switch,_i]);
      end;
      _array_switch = 3-_array_switch;
    end;

    *now check the array to see if we should set next_trans_flag;

    next_trans_flag='N';
    do _i = 1 to dim(prods,2);
      if missing(prods[_array_switch,_i]) then leave;  *for speed;
      if prods[_array_switch,_i] = product_description then next_trans_flag='Y';      
    end;
    prods[3-_array_switch,_n_] = product_description;  *set for next trx_date;
    output;
  end;
  drop _:;
run;

答案 3 :(得分：0)

我认为要真正回答这个问题，您需要生成一系列不同的访问*产品组合。还列出了在特定访问中购买的独特产品。

proc sql noprint ;
  create table bought as 
    select distinct identifier, product_description, trx_date, transaction_id
    from smp
    order by 1,2,3,4
  ;
  create table all_visits as 
    select a.identifier, product_description, trx_date, transaction_id
    from (select distinct identifier,product_description from bought) a
    natural join (select distinct identifier,transaction_id,trx_date from bought) b
    order by 1,2,3,4
  ;
quit;

然后，您可以将它们组合起来，并标明该产品是否是在该次访问时购买的。

data check ;
  merge all_visits bought(in=in1) ;
  by identifier product_description trx_date transaction_id ;
  bought=in1;
run;

您现在可以使用lead技术确定他们是否在下次访问时购买了该产品。

data flag ;
  set check ;
  by identifier product_description trx_date transaction_id ;
  set check(firstobs=2 keep=bought rename=(bought=bought_next)) check(drop=_all_ obs=1);
  if last.product_description then bought_next=0;
run;

然后，您可以将其与实际购买结合起来，并消除额外的虚拟记录。

proc sort data=smp;
  by identifier product_description trx_date transaction_id ;
run;

data want ;
  merge flag smp (in=in1);
  by identifier product_description trx_date transaction_id ;
  if in1 ;
run;

让我们将记录放回原始订单中，以便我们检查结果。

proc sort; by row; run;
proc print; run;

enter image description here

相关问题
最新问题