3482
правки
Изменения
м
→Анализ посещаемости сайта
Получение данных:
{{r-code|code=<nowiki>> ga.data <- ga$getData(id, start.date= Sys.Date(), end.date= Sys.Date() - 30,+ metrics = "ga:pageviews,ga:sessions,ga:users", + dimensions = "ga:date")</nowiki>}}
Переменные <code>id</code>, <code>start.date</code>, <code>end.date</code> мы уже определили ранее.
[[Файл:Ga-date-users.svg|600px|центр]]
== Анализ посещаемости по дням недели ==
{{r-code|code=<nowiki>> ga.data <- ga$getData(id, start.date = Sys.Date() - 30, end.date = Sys.Date(),
+ metrics = "ga:sessions", dimensions = "ga:date")</nowiki>}}
{{rcode|code=<nowiki>> ga.data$weekdays <- factor(weekdays(ga.data$date, abbreviate = TRUE), levels = unique(weekdays(ga.data$date, abbreviate = TRUE)), ordered = TRUE)</nowiki>}}
{{r-code|code=<nowiki>> qplot(data = ga.data, x = weekdays, y = sessions, geom = "bar", stat = "summary", fun.y = "sum") + theme_bw()</nowiki>}}