3482
правки
Изменения
м
→Анализ посещаемости по дням недели
== Анализ посещаемости по дням недели ==
{{r-code|code=<nowiki>> ga.data <- ga$getData(id, start.date = Sys.Datega$getFirstDate(id) - 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 = uniquec(weekdays"Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun"), ordered = TRUE)</nowiki>}} {{r-code|code=<nowiki>> tapply(ga.data$datesessions, abbreviate = TRUE))ga.data$weekdays, ordered = TRUEmean) Mon Tue Wed Thu Fri Sat Sun 5682 6033 5572 5593 4717 3385 4120 </nowiki>}}
{{r-code|code=<nowiki>> qplot(data = ga.data, x = weekdays, y = sessions, geom = "bar", stat = "summary", fun.y = "sum") + theme_bw()</nowiki>}}
