diff --git a/commit_analysis/plotting/ww-bots-plot-script.R b/commit_analysis/plotting/ww-bots-plot-script.R index fabcbdd..d371164 100644 --- a/commit_analysis/plotting/ww-bots-plot-script.R +++ b/commit_analysis/plotting/ww-bots-plot-script.R @@ -52,12 +52,21 @@ new_unaff_authors <- new_authors_long_df |> geom_vline(data = long_df |> filter(source == "c1"), aes(xintercept = -9), linetype = "dotted", color = "black", linewidth = 1) + + geom_vline(data = combined_df |> filter(source == "c1"), + aes(xintercept = -4), + linetype = "3313", color = "black", linewidth = 1) + geom_vline(data = long_df |> filter(source == "c2"), aes(xintercept = -99), linetype = "dotted", color = "black", linewidth = 1) + + geom_vline(data = combined_df |> filter(source == "c2"), + aes(xintercept = -4), + linetype = "3313", color = "black", linewidth = 1) + geom_vline(data = long_df |> filter(source == "c3"), aes(xintercept = -97), linetype = "dotted", color = "black", linewidth = 1) + + geom_vline(data = combined_df |> filter(source == "c3"), + aes(xintercept = -3), + linetype = "3313", color = "black", linewidth = 1) + geom_text(data = data.frame(source = "c1", relative_week = -40, lengthened_commit_count = 90), aes(x = relative_week, y = lengthened_commit_count, label = "Opt-In Testing Deployment"), inherit.aes = FALSE, color = "black", size = 4) + @@ -65,6 +74,9 @@ new_unaff_authors <- new_authors_long_df |> geom_text(data = data.frame(source = "c1", relative_week = 7, lengthened_commit_count = 90), aes(x = relative_week, y = lengthened_commit_count, label = "Wide Deployment"), inherit.aes = FALSE, color = "black", size = 4) + + geom_text(data = data.frame(source = "c3", relative_week = -15, lengthened_commit_count = 100), + aes(x = relative_week, y = lengthened_commit_count, label = "Wide Deployment Announcement"), + inherit.aes = FALSE, color = "black", size = 4) + scale_fill_manual(values = c("returning_unaff_commit_count" = "#FFC107", # Color for "Returning Contributors" "unaff_new_commit_count" = "#004D40"), labels = c("returning_unaff_commit_count" = "Returning", @@ -91,7 +103,7 @@ new_unaff_authors <- new_authors_long_df |> new_unaff_authors -#ggsave(filename = "ww-0501-bot-commits-faceted.png", plot = new_unaff_authors, width = 15, height = 9, dpi = 800) +ggsave(filename = "ww-0501-bot-commits-faceted.png", plot = new_unaff_authors, width = 15, height = 9, dpi = 800) unaff_authors <- new_authors_long_df |> ggplot(aes(x=relative_week, @@ -104,12 +116,21 @@ unaff_authors <- new_authors_long_df |> geom_vline(data = long_df |> filter(source == "c1"), aes(xintercept = -9), linetype = "dotted", color = "black", linewidth = 1) + + geom_vline(data = combined_df |> filter(source == "c1"), + aes(xintercept = -4), + linetype = "3313", color = "black", linewidth = 1) + geom_vline(data = long_df |> filter(source == "c2"), aes(xintercept = -99), linetype = "dotted", color = "black", linewidth = 1) + + geom_vline(data = combined_df |> filter(source == "c2"), + aes(xintercept = -4), + linetype = "3313", color = "black", linewidth = 1) + geom_vline(data = long_df |> filter(source == "c3"), aes(xintercept = -97), linetype = "dotted", color = "black", linewidth = 1) + + geom_vline(data = combined_df |> filter(source == "c3"), + aes(xintercept = -3), + linetype = "3313", color = "black", linewidth = 1) + geom_text(data = data.frame(source = "c1", relative_week = -40, lengthened_commit_count = 90), aes(x = relative_week, y = lengthened_commit_count, label = "Opt-In Testing Deployment"), inherit.aes = FALSE, color = "black", size = 4) + @@ -137,3 +158,5 @@ unaff_authors <- new_authors_long_df |> ))) unaff_authors + +ggsave(filename = "ww-0501-bot-commits-grey.png", plot = unaff_authors, width = 15, height = 9, dpi = 800) diff --git a/ww-figures/ww-0501-bot-commits-faceted.png b/ww-figures/ww-0501-bot-commits-faceted.png index 21b6d4a..d9e1ded 100644 Binary files a/ww-figures/ww-0501-bot-commits-faceted.png and b/ww-figures/ww-0501-bot-commits-faceted.png differ