diff --git a/.sh_history b/.sh_history
index 2e0c6b5..dc30a3a 100644
--- a/.sh_history
+++ b/.sh_history
@@ -170,3 +170,6 @@ cd case2
 ls
 ls ../case1
 ls ../case3
+cd ..
+ls
+ls case1
diff --git a/commit_analysis/plotting/ww-bots-plot-script.R b/commit_analysis/plotting/ww-bots-plot-script.R
index bb7ea53..fabcbdd 100644
--- a/commit_analysis/plotting/ww-bots-plot-script.R
+++ b/commit_analysis/plotting/ww-bots-plot-script.R
@@ -91,4 +91,49 @@ 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,
+             y=lengthened_commit_count)) +
+  geom_col(position='dodge') +
+  labs(x = "Relative Week", y = "Commits", fill="Contributor Tenure (New contributors <= 5 commits before deployment announcement)") +
+  geom_vline(data = long_df |> filter(source == "c1"), 
+             aes(xintercept = -29), 
+             linetype = "dotted", color = "black", linewidth = 1) +
+  geom_vline(data = long_df |> filter(source == "c1"), 
+             aes(xintercept = -9), 
+             linetype = "dotted", color = "black", linewidth = 1) +
+  geom_vline(data = long_df |> filter(source == "c2"), 
+             aes(xintercept = -99), 
+             linetype = "dotted", color = "black", linewidth = 1) +
+  geom_vline(data = long_df |> filter(source == "c3"), 
+             aes(xintercept = -97), 
+             linetype = "dotted", 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) +
+  geom_vline(xintercept = 0, linetype = "dashed", color = "black", linewidth = 1) + # Add vertical line at week 0
+  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) +
+  ggtitle("Unaffiliated Commits to Bot Framework Libraries During Feature Deployments") +
+  theme_bw() +
+  theme(
+    legend.position = "top",
+    plot.title = element_text(size = 18, face = "bold"), # Increase title font size
+    axis.title.x = element_text(size = 16),             # Increase x-axis title font size
+    axis.title.y = element_text(size = 16),             # Increase y-axis title font size
+    axis.text.x = element_text(size = 16),              # Increase x-axis text font size
+    axis.text.y = element_text(size = 16),              # Increase y-axis text font size
+    legend.text = element_text(size = 16),              # Increase legend text font size
+    legend.title = element_text(size = 16),
+    strip.text = element_text(size = 14)# Increase legend title font size
+  ) +
+  facet_wrap(~source, nrow = 3, labeller = labeller(source = c(
+    "c1" = "VisualEditor",
+    "c2" = "HTTPS-as-default",
+    "c3" = "HTTP-deprecation"
+  )))
+
+unaff_authors
diff --git a/ww-figures/ww-0501-bot-commits-grey.png b/ww-figures/ww-0501-bot-commits-grey.png
new file mode 100644
index 0000000..d839b40
Binary files /dev/null and b/ww-figures/ww-0501-bot-commits-grey.png differ