r キーワードモニタ

Posted 2021-05-23

# TODO: コスト消費検証

# o キーワード読み込み
# o 入稿キーワードが停止済か確認する
# => 多分停止済だが、すでに停止済だったものが多数ありそう
# o 他のキーワードがどの程度伸びているのか確認する

# o 伸びている要因を調査

list<-paste("keyword/",list.files("keyword"),sep="")
keyword<-read.csv(list,header=T,stringsAsFactors=F)
# file.remove(paste("keyword/",list.files("keyword"),sep=""))

tgt.key<-read.csv("target_keyword.csv",header=T,stringsAsFactors=F)

k<-paste(tgt.key$キャンペーン名,tgt.key$広告グループ名,tgt.key$キーワード,tgt.key$マッチタイプ)
on.key<-subset(keyword,paste(キャンペーン名,広告グループ名,キーワード,マッチタイプ)%in%k)

bef<-subset(on.key,"2018-05-09"<=日 & 日 <= "2018-05-13")
aft<-subset(on.key,"2018-05-16"<=日 & 日 <= "2018-05-20")
write.csv(bef,"bef.csv",quote=F,row.names=F)
write.csv(aft,"aft.csv",quote=F,row.names=F)