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
これに関するヘルプを楽しみにしています。