SAS

Question

我有以下数据：

我想知道每年每个月有多少独特客户拥有某种产品。 从和到列是产品“有效”的时间，如果客户改变了他的尺寸，颜色或产品，或者一年过去了，则客户会获得新行。我不关心颜色或尺寸，只关心产品的类型。我知道有很多方法可以做到这一点，但它们非常繁琐。

例如，对于2014年的第1个月，我想知道有多少具有产品1，产品2或产品3的独特客户。

Year    Month   no product 1    no product 2    no product 3
2014    1           1             0                 0

（当时只有杰拉德“有效”，他只有产品1 ）

我希望所有“有效”年份和月份都有这样的列表。

修改：     数据：

name    from          to        colour  size    product
Jenny   15JAN2015   15JAN2016'  red     small   1
Jenny   15JAN2016'  15JAN2017'  green   big     1
Jenny   15JAN2017'  15JAN2018'  blue    big     3
Bob     05APR2014   05APR2015   blue    small   2
Bob     05APR2015   05APR2016   green   small   2
Gerald  23MAY2013   23DEC2013   red     small   2
Gerald  23DEC2013   23MAY2014   yellow  big     1
Gerald  23MAY2014   04SEP2014   green   big     1
Gerald  04SEP2014   25DEC2014   red     small   2
Hope    23MAY2014   04SEP2014   red     small   1
Hope    04SEP2014   25DEC2014   red     small   1
Siri    15JAN2016'  15JAN2017'  red     small   1

Answer 1

如果您扩展原始数据，以便客户每月持有一行产品，那么只需进行频率计数并转换结果即可获得所需的格式。我的回答唯一的区别是我将年份和月份显示为1列，因为它使循环更容易。

/* source data */
data have;
input name $ from_dt :date9. to_dt :date9. colour $ size $ product;
format from_dt to_dt date9.;
datalines;
Jenny 15JAN2015 15JAN2016 red small 1 
Jenny 15JAN2016' 15JAN2017' green big 1 
Jenny 15JAN2017' 15JAN2018' blue big 3 
Bob 05APR2014 05APR2015 blue small 2 
Bob 05APR2015 05APR2016 green small 2 
Gerald 23MAY2013 23DEC2013 red small 2 
Gerald 23DEC2013 23MAY2014 yellow big 1 
Gerald 23MAY2014 04SEP2014 green big 1 
Gerald 04SEP2014 25DEC2014 red small 2 
Hope 23MAY2014 04SEP2014 red small 1 
Hope 04SEP2014 25DEC2014 red small 1 
Siri 15JAN2016' 15JAN2017' red small 1
;
run;

/* expand data to have a row for every month */
data temp1;
format mthyr yymm8.;
set have;
do i = 0 to intck('month',intnx('month',from_dt,0),intnx('month',to_dt,0));
mthyr = intnx('month',from_dt,i);
output;
end;
run;

/* count frequencies of products per month */
proc freq data=temp1 noprint;
table mthyr*product / sparse out=temp2;
run;

/* transpose data */
proc transpose data=temp2 out=want (drop=_:) prefix=product;
by mthyr;
id product;
var count;
run;