В прошлом году я опубликовал анализ активности пользователей в Meta Stack Overflow, включая серию графиков ggplot2. Тем не менее, Wooble сильно пристыдил меня, указав на фатальную ошибку с моими графиками:
Необычные красные круги конечно, необходимы в любом сюжете по переполнению Meta Stack, но, к моему ужасу, я не смог найти способ добавить их в график ggplot2. Я знаю, как добавить круг, но такая искусственная конструкция не имеет индивидуальности и никогда не пройдет на Meta.
В качестве воспроизводимого примера рассмотрим этот график моей собственной ответной активности с течением времени, созданный с помощью пакета stackr:
# devtools::install_github("dgrtwo/stackr")
library(ggplot2)
library(dplyr)
library(lubridate)
library(stackr)
answers <- stack_users(712603, "answers", num_pages = 10, pagesize = 100)
answers_per_month <- answers %>%
mutate(month = round_date(creation_date, "month")) %>%
count(month)
ggplot(answers_per_month, aes(month, n)) + geom_line()
Этот сюжет достаточно информативен, но у него нет души. Как я могу добавить к нему свободные красные круги?