キーワード分析をweighted sort => ETV で。
方法はRで。計算式はこちらに書いた。
キーワード、閲覧開始ページ、閲覧開始数、直帰数でデータを取得して、ETVを計算
k0 <-getData(auth,25513728,metrics=c("entrances","bounces"),dimensions=c("landingPagePath","keyword"),start.date="2010-04-01",max.results=10000)k1 <- weighted.mean(k0,"bounces","entrances")閲覧開始数を対数化して表示。開始ページで色分けする。
l.top5 <- names(rev(sort(tapply(k1$entrances,k1$landingPagePath,sum)))[1:5])xyplot(k1$w.rate~k1$entrances,group=ifelse(k1$landingPagePath %in% l.top5, k1$landingPagePath, "others"),xlab="閲覧開始数",ylab="直帰率",main="キーワード別の直帰率(ETV)",scales=list(x=list(log=TRUE,at=c(1,50,100,300))),auto.key=list(space="bottom"))閲覧開始別に色分けした。
本来、キーワード分析はランディングページ別に行われるべき。
ページ別にグラフ化する。一気にグラフにもっていきたいけど、データフレームを分割して表示する。