3482
правки
Изменения
м
→Анализ источников трафика
{{r-code|code=<nowiki>> qplot(data = ga.data, x = factor(0), y = sessions, fill = medium, xlab = "", ylab = "") +
+ geom_bar(width = 1, stat = "identity") + coord_polar(theta = "y") + theme_bw() ++ themegeom_text(axis.ticks aes(y = element_blankcumsum(sessions), axis- 0.text.x 5 * sessions, label = element_blankpaste0()percent, axis.text.y "%"))) ++ scale_y_continuous(breaks = element_blankNULL) + scale_x_discrete()breaks = NULL) ++ scale_fill_discrete(name = "source") + theme_bw()</nowiki>}}
[[Файл:Ga-trafic-sources.svg|600px|центр]]