Làm cách nào để thêm vòng tròn màu đỏ tự do vào biểu đồ ggplot2?

Question

Năm ngoái tôi đã đăng an analysis of user activity to Meta Stack Overflow, bao gồm một loạt biểu đồ ggplot2. Tuy nhiên, Wooble rất xấu hổ cho tôi bằng cách chỉ ra một lỗ hổng chết người với âm mưu của tôi:

Freehand vòng tròn màu đỏ are of course necessary in any plot on Meta Stack Overflow, nhưng để mất tinh thần của tôi, tôi không thể tìm thấy một cách để thêm chúng vào một đồ thị ggplot2. Tôi biết làm thế nào để add a circle, nhưng như một cấu trúc nhân tạo không có cá tính và sẽ không bao giờ vượt qua muster trên Meta.

Như một ví dụ tái sản xuất, xem xét âm mưu hoạt động này trả lời của riêng tôi theo thời gian, tạo ra bằng cách sử dụng stackr gói:

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

âm mưu này là đủ thông tin, nhưng nó không có linh hồn. Làm thế nào tôi có thể thêm vòng tròn màu đỏ tự do vào nó?

Answer 1

Bạn có thể sử dụng gói ggfreehand của mình, cung cấp lớp geom_freehand bị bỏ qua bất cẩn từ ggplot2.

Ví dụ, nếu bạn muốn khoanh tròn hai tháng tích cực nhất đầu trong cốt truyện trên, bạn có thể làm theo các mã với:

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) 

Và cũng giống như thế, cốt truyện là bây giờ xứng đáng được đăng trên Meta Stack tràn.

Lớp geom_freehand có các tùy chọn bổ sung để tùy chỉnh vòng tròn, bao gồm radius và noisiness. Bạn cũng có thể làm cho vòng tròn không đỏ, như thể đó là thứ bạn muốn làm.

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