3482
правки
Изменения
м
{{r-code|code=<nowiki>> tapply(ga.data$sessions, ga.data$weekdays, mean) Mon Tue Wed Thu Fri Sat Sun 5682 6033 5572 5593 4717 3385 4120 </nowiki>}}Полученный результат:
{{r[[Файл:Ga-wdays-code|code=<nowiki>> qplot(data = ga.data, x = weekdays, y = sessions, geom = "bar", stat = "summary", fun.y = "mean") + theme_bw()</nowiki>}}svg|600px|центр]]
→Анализ посещаемости по дням недели
== Анализ посещаемости по дням недели ==
Проанализируем динамику посещаемости сайта в течении недели. Для этого возьмём сведения о количестве посещений с момента начала сбора статистики до текущего дня. Код для запроса этих данных выглядит следующим образом:
{{r-code|code=<nowiki>> ga.data <- ga$getData(id, start.date = ga$getFirstDate(id), end.date = Sys.Date(),
+ metrics = "ga:sessions", dimensions = "ga:datedayOfWeekName")</nowiki>}} Для корректной сортировки дней недели в графике, т.е. чтобы соблюдался порядок дней недели, {{r-code|code=<nowiki>> ga.data$dayOfWeekName <- factor(ga.data$dayOfWeekName, ordered = TRUE,+ levels = c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"))</nowiki>}} {{r-code|code=<nowiki>> ga.data dayOfWeekName sessions1 Friday 191992 Monday 284093 Saturday 137914 Sunday 169225 Thursday 229366 Tuesday 301657 Wednesday 29784</nowiki>}} Визуализировать данную таблицу можно следующим образом:
{{r-code|code=<nowiki>> ga.qplot(data$weekdays <- factor(weekdays(= ga.data$date, abbreviate x = TRUE)dayOfWeekName,+ levels y = c("Mon"sessions, geom = "Tuebar", stat = "Wedsummary", fun.y = "Thu", "Fri", "Sat", "Sunmean"), ordered = TRUE+ theme_bw()</nowiki>}}
== Примечания ==
<references />