mgaughan/mw-lifecycle-analysis
1
0
Fork 0
Code

updating m2 plots with free y axis

Browse Source
This commit is contained in:
Matthew Gaughan 2025-07-05 14:13:12 -07:00
parent 6c477f3d49
commit 7966e92125
4 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
070525-d1-m2-commits-faceted.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 698 KiB

BIN
070525-d1-m2-tasks-faceted.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 747 KiB

14
commit_analysis/plotting/ww-plot-script.R
View File

@ -63,10 +63,10 @@ commit_authors <- long_df |>
aes(x = relative_week, y = lengthened_commit_count, label = "Opt-In Testing Deployment"), aes(x = relative_week, y = lengthened_commit_count, label = "Opt-In Testing Deployment"),
inherit.aes = FALSE, color = "black", size = 4) + 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_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"), aes(x = relative_week, y = lengthened_commit_count, label = "Wide Deployment"),
inherit.aes = FALSE, color = "black", size = 4) + 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"), aes(x = relative_week, y = lengthened_commit_count, label = "Wide Deployment Announcement"),
inherit.aes = FALSE, color = "black", size = 4) + inherit.aes = FALSE, color = "black", size = 4) +
scale_fill_manual(values = affiliationColors, scale_fill_manual(values = affiliationColors,
@ -85,11 +85,11 @@ commit_authors <- long_df |>
legend.title = element_text(size = 16), legend.title = element_text(size = 16),
strip.text = element_text(size = 14)# Increase legend title font size 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) [commits to extensions/visualeditor]", "c1" = "VisualEditor (2013)",
"c2" = "HTTPS-as-default (2013) [relevant commits to mediawiki/core]", "c2" = "HTTPS-as-default (2013)",
"c3" = "HTTP-deprecation (2015) [relevant commits to mediawiki/core]" "c3" = "HTTP-deprecation (2015)"
))) )))
commit_authors 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)

8
ww-task-plot-script.R
View File

@ -66,10 +66,10 @@ commit_authors <- combined_df |>
aes(x = relative_week, y = lengthened_commit_count, label = "Opt-In Testing Deployment"), aes(x = relative_week, y = lengthened_commit_count, label = "Opt-In Testing Deployment"),
inherit.aes = FALSE, color = "black", size = 4) + 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_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"), aes(x = relative_week, y = lengthened_commit_count, label = "Wide Deployment"),
inherit.aes = FALSE, color = "black", size = 4) + 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"), aes(x = relative_week, y = lengthened_commit_count, label = "Wide Deployment Announcement"),
inherit.aes = FALSE, color = "black", size = 4) + inherit.aes = FALSE, color = "black", size = 4) +
scale_fill_manual(values = affiliationColors, scale_fill_manual(values = affiliationColors,
@ -88,11 +88,11 @@ commit_authors <- combined_df |>
legend.title = element_text(size = 16), legend.title = element_text(size = 16),
strip.text = element_text(size = 14)# Increase legend title font size 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)", "c1" = "VisualEditor (2013)",
"c2" = "HTTPS-as-default (2013)", "c2" = "HTTPS-as-default (2013)",
"c3" = "HTTP-deprecation (2015)" "c3" = "HTTP-deprecation (2015)"
))) )))
commit_authors 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)