Geçen yıl ggplot2 grafik bir dizi de dahil olmak üzere an analysis of user activity to Meta Stack Overflow gönderilmiştir. Ancak, Wooble büyük ölçüde benim araziler ile ölümcül bir kusur işaret ederek beni utandırdı:

Freehand kırmızı daireler are of course necessary in any plot on Meta Stack Overflow ama ggplot2 grafik eklemek için bir yol bulamadım büyük bir dehşet. 13* *ama böyle bir yapay bilirim inşa hiçbir kişiliğe sahiptir ve asla Meta yaramazsınız.

Tekrarlanabilir bir örnek olarak, zaman içinde kendi cevap benim etkinlik, stackr paketi kullanılarak oluşturulan bu arsa düşünün:

# 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()

Bu arsa bilgilendirici yeterli, ama hayırruh. Nasıl freehand kırmızı daireler ekleyebilir miyim?

Hala patavatsızca olduğunu geom_freehand katman ggplot2 ihmal sağlayan ggfreehand benim paketi kullanabilirsiniz.

Eğer daire arsa içinde en aktif iki ay yukarıda istiyorsa örneğin, bu kod ile takip olabilir:

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)

Ve böylece, bu arsa şimdi Meta Yığın Taşması yayınlanan olmayı hak ediyor.

geom_freehand katmanı Daire, radius noisiness dahil olmak üzere özelleştirme seçenekleri yer alıyor. Ayrıca hep yapmak istediğim bir şey vardı sanki çember değil kırmızı yapabilirim.

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")