updating bot framework commit plotting, showing announcement

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)