3482
правки
Изменения
м
→Примечания
На графике отчётливо видно, что пик посещаемости сайта приходится на начало недели, а своего минимума достигает в субботу. Проверить предположение о неслучайном характере распределение активности посетителей в зависимости от дня недели можно с помощью статистического критерия <math>\chi^2</math> Пирсона.
== Анализ суточной активности посетителей по дням недели ==
{{r-code|code=<nowiki>> ga.data <- ga$getData(id, start.date = ga$getFirstDate(id), end.date = Sys.Date(),
+ metrics = "ga:pageviews", dimensions = "ga:dayOfWeekName,ga:hour")</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>> qplot(data = ga.data, x = dayOfWeekName, y = hour, fill = pageviews, xlab = "days of week") +
+ geom_tile(colour = "white") + scale_fill_gradient(low = "steelblue", high="red",space="Lab") + theme_bw()</nowiki>}}
== Примечания ==
<references />