Как я могу добавить красные круги вручную на график ggplot2?

Question

В прошлом году я опубликовал an analysis of user activity to Meta Stack Overflow, включая серию графиков ggplot2. Тем не менее, Wooble сильно опозорил меня, указывая на фатальную ошибку с моими участками:

Freehand красных кругами are of course necessary in any plot on Meta Stack Overflow, но, к моему ужасу, я не мог найти способ, чтобы добавить их к ggplot2 графику. Я знаю, как add a circle, но такая искусственная конструкция не имеет индивидуальности и никогда не пройдет на Мета.

В воспроизводимым примере рассмотрит этот участок моей автоответчика деятельности в течение долгого времени, созданный с использованием 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() 

Этот участок является достаточно информативным, но это не имеет души. Как я могу добавить к нему красные круги?

Answer 1

Вы можете использовать мой пакет ggfreehand, который предоставляет слой geom_freehand, который был так небрежно опущен из ggplot2.

Например, если вы хотите, чтобы обвести два верхних наиболее активных месяцев в сюжете выше, вы могли бы следовать код:

top_2_months <- answers_per_month %>% top_n(2) 

library(ggfreehand) 
ggplot(answers_per_month, aes(month, n)) + geom_line() + 
    geom_freehand(data = top_2_months) 

И просто так, сюжет теперь заслуживает публикации в Meta Stack Overflow.

Слой geom_freehand имеет дополнительные возможности для настройки круга, включая radius и noisiness. Вы также можете сделать круг не красным, как если бы это было то, что вы когда-либо хотели бы сделать.

p <- ggplot(answers_per_month, aes(month, n)) + geom_line() 

p + geom_freehand(data = top_2, radius = .5) 
p + geom_freehand(data = top_2, noisiness = 10) 
p + geom_freehand(data = top_2, noisiness = 1) 
p + geom_freehand(data = top_2, color = "blue")