o キーワードレポートから対象のキーワードを抜き出し o キーワードを指定した2つの期間で分割
# 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)