r キーワードレベルの调整

Posted 2021-05-23

# TODO: キーワードレベルの調整

day.query<-subset(day.query,grp==TGT.g)

day.query$KEY<-paste(day.query[,"キーワード"],day.query[,"マッチタイプ"])

KEYs<-unique(day.query$KEY)

for( key in KEYs ){
  day.query.tg<-subset(day.query,KEY==key)
  for( day in c(7,14,21,30,60,90,180,360,720,1440) ){
    day.tmp<-subset(day.query.tg,(max(day.query[,"日付"])-day<日付&日付<Sys.Date()))
    day.tmp<-ddply(day.tmp,.(KEY),colwise(sum,is.numeric))
    day.tmp$DAY<-day
    if( day == 7 )day.tmp.grp<-day.tmp
    else day.tmp.grp<-rbind(day.tmp,day.tmp.grp)
  }
  day.tmp.grp<-mutate(day.tmp.grp,CPA=round(コスト/コンバージョン数))
  day.tmp.grp<-mutate(day.tmp.grp,DCV=round(コンバージョン数/DAY*30,1))
  day.tmp.grp<-mutate(day.tmp.grp,CTR=round((クリック数/インプレッション数)*100,2))
  day.tmp.grp<-mutate(day.tmp.grp,CVR=round((コンバージョン数/クリック数)*100,2))
  day.tmp.grp<-mutate(day.tmp.grp,DCO=round(コスト/DAY,0))
  print(key) # TODO: ADD 入札価格情報
  watch.c<-c("CPA","DCV","DCO","CTR","CVR","DAY")
  print(day.tmp.grp[watch.c])
  readline()
  # 追加処理など
}