1
0

updating m2 plots with free y axis

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

Binary file not shown.

After

Width:  |  Height:  |  Size: 698 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 747 KiB

View File

@ -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)

View File

@ -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)