3482
правки
Изменения
м
sourceMedium > ga.data medium source sessions1 yandex / organic yandex 852912 google / organic google 712333 (directnone) / (nonedirect) 130814 organic go.mail.ru / organic 68995 referral vk.com / referral 31686 referral ru.wikipedia.org / referral 30277 organic rambler / organic 8308 referral psychologos.ru / referral 6879 bing / organic bing 43610 referral e.mail.ru / referral 38111 referral nigma.ru / referral 33412 referral ru.m.wikipedia.org / referral 16913 referral rutracker.org / referral 16914 organic ask / organic 13215 referral brainmod.ru / referral 11916 referral yandex.ru / referral 10217 referral lookatme.ru / referral 10118 referral m.vk.com / referral 9819 referral ru.scribd.com / referral 9020 referral otvet.mail.ru 84</ nowiki>}} Отобразим только поисковый трафик: {{r-code|code=<nowiki>> ga.data[ga.data$medium == "organic", ] medium source sessions1 organic yandex 852912 organic google 712334 organic go.mail.ru 68997 organic rambler 8309 organic bing 43614 organic ask 132</nowiki>}} Только трафик переходов: {{r-code|code=<nowiki>> ga.data[ga.data$medium == "referral ", ] medium source sessions5 referral vk.com 31686 referral ru.wikipedia.org 30278 referral psychologos.ru 68710 referral e.mail.ru 38111 referral nigma.ru 33412 referral ru.m.wikipedia.org 16913 referral rutracker.org 16915 referral brainmod.ru 11916 referral yandex.ru 10217 referral lookatme.ru 10118 referral m.vk.com 9819 referral ru.scribd.com 9020 referral otvet.mail.ru 84</nowiki>}}
→Анализ соотношения источников трафика
{{r-code|code=<nowiki>> ga.data <- ga$getData(id, start.date = ga$getFirstDate(id), end.date = Sys.Date() - 1,
+ metrics = "ga:sessions", dimensions = "ga:sourceMediummedium,ga:source",
+ max = 20, sort = "-ga:sessions")
Only pulling 20 observations of 327 total (set batch = TRUE to get all observations)</nowiki>}}
{{r-code|code=<nowiki>> ga.data
Визуализируем эту таблицу с помощью столбиковой диаграммы:
{{r-code|code=<nowiki>> qplot(data = ga.data, x = reorder(sourceMediumsource, sessions), y = sessions,
+ geom = "bar", stat = "identity", xlab = "") + coord_flip() + theme_bw()</nowiki>}}
