0

Proc SQL/SAS コードの 1 つを Rev R/Microsoft-r に変換したかった

これが私のサンプルコードです

proc sql;
create table GENDER_YEAR as
select YEAR,GENDER,count(distinct CARD_NO) as CM_COUNT,sum(SPEND) as TOTAL_SPEND, sum(case when SPEND GT 0 then 1 else 0 end) as NO_OF_TRANS
from ABC group by YEAR,GENDER;
quit;

Rev Rで以下のコードを試しています

library("RevoPemaR")
byGroupPemaObj <- PemaByGroup()

GENDER_cv_grouped <- pemaCompute(pemaObj = byGroupPemaObj, data = Merchant_Trans,groupByVar = "GENDER",computeVars = c("LOCAL_SPEND"),fnList = list(sum = list(FUN = sum, x = NULL)))

一度に計算するだけですが、CARD_NOの個別のカウント、SPENDのSUM、およびYEARとGenderの各セグメントのトランスとしての支出のゼロ行の数が必要です。

出力は以下のようになります

YEAR  GENDER CM_COUNT TOTAL_SPEND NO_OF_TRANS
YEAR1 M      23        120        119
YEAR1 F      21        110        110
YEAR2 M      20        121        121
YEAR2 F      35        111        109

これに関するヘルプを楽しみにしています。

4

2 に答える 2