diff --git a/070525-d1-m2-commits-faceted.png b/070525-d1-m2-commits-faceted.png new file mode 100644 index 0000000..8925c32 Binary files /dev/null and b/070525-d1-m2-commits-faceted.png differ diff --git a/070525-d1-m2-tasks-faceted.png b/070525-d1-m2-tasks-faceted.png new file mode 100644 index 0000000..f2523ed Binary files /dev/null and b/070525-d1-m2-tasks-faceted.png differ diff --git a/commit_analysis/plotting/ww-plot-script.R b/commit_analysis/plotting/ww-plot-script.R index fe4fc36..f7ba175 100644 --- a/commit_analysis/plotting/ww-plot-script.R +++ b/commit_analysis/plotting/ww-plot-script.R @@ -63,10 +63,10 @@ commit_authors <- long_df |> 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 = 0.5) + # Add vertical line at week 0 - geom_text(data = data.frame(source = "c2", relative_week = 7, lengthened_commit_count = 50), + geom_text(data = data.frame(source = "c2", relative_week = 7, lengthened_commit_count = 3.5), 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 = 50), + geom_text(data = data.frame(source = "c3", relative_week = -15, lengthened_commit_count = 3.5), aes(x = relative_week, y = lengthened_commit_count, label = "Wide Deployment Announcement"), inherit.aes = FALSE, color = "black", size = 4) + scale_fill_manual(values = affiliationColors, @@ -85,11 +85,11 @@ commit_authors <- long_df |> 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 (2013) [commits to extensions/visualeditor]", - "c2" = "HTTPS-as-default (2013) [relevant commits to mediawiki/core]", - "c3" = "HTTP-deprecation (2015) [relevant commits to mediawiki/core]" + facet_wrap(~source, nrow = 3, scales = "free_y", labeller = labeller(source = c( + "c1" = "VisualEditor (2013)", + "c2" = "HTTPS-as-default (2013)", + "c3" = "HTTP-deprecation (2015)" ))) commit_authors -ggsave(filename = "d1-m2-commits-faceted.png", plot = commit_authors, width = 15, height = 9, dpi = 800) +ggsave(filename = "070525-d1-m2-commits-faceted.png", plot = commit_authors, width = 15, height = 9, dpi = 800) diff --git a/ww-task-plot-script.R b/ww-task-plot-script.R index b5cff38..568bf4e 100644 --- a/ww-task-plot-script.R +++ b/ww-task-plot-script.R @@ -66,10 +66,10 @@ commit_authors <- combined_df |> 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 = 0.5) + # Add vertical line at week 0 - geom_text(data = data.frame(source = "c2", relative_week = 7, lengthened_commit_count = 130), + geom_text(data = data.frame(source = "c2", relative_week = 7, lengthened_commit_count = 25), 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 = 130), + geom_text(data = data.frame(source = "c3", relative_week = -15, lengthened_commit_count = 45), aes(x = relative_week, y = lengthened_commit_count, label = "Wide Deployment Announcement"), inherit.aes = FALSE, color = "black", size = 4) + scale_fill_manual(values = affiliationColors, @@ -88,11 +88,11 @@ commit_authors <- combined_df |> 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( + facet_wrap(~source, nrow = 3, scales = "free_y", labeller = labeller(source = c( "c1" = "VisualEditor (2013)", "c2" = "HTTPS-as-default (2013)", "c3" = "HTTP-deprecation (2015)" ))) commit_authors -ggsave(filename = "d1-m2-tasks-faceted.png", plot = commit_authors, width = 15, height = 9, dpi = 800) +ggsave(filename = "070525-d1-m2-tasks-faceted.png", plot = commit_authors, width = 15, height = 9, dpi = 800)