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

FOSSY resolution share

Browse Source
This commit is contained in:
Matthew Gaughan 2025-07-31 21:47:24 -07:00
parent 5239a8458a
commit 34c376dbc3
3 changed files with 31 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
073125-fossy-tasks-resolved.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 966 KiB

17
mgaughan-rstudio-server_27851458.out Normal file
View File

@ -0,0 +1,17 @@
1. SSH tunnel from your workstation using the following command:
ssh -N -L 8787:n3441:59491 mjilg@klone.hyak.uw.edu
and point your web browser to http://localhost:8787
2. log in to RStudio Server using the following credentials:
user: mjilg
password: QSTMw7+SdHBKq8hU9/1q
When done using RStudio Server, terminate the job by:
1. Exit the RStudio Session ("power" button in the top right corner of the RStudio window)
2. Issue the following command on the login node:
scancel -f 27851458

22
p2/phab-new-task-plot-script.R
View File

@ -4,9 +4,15 @@ df_path <-"/mmfs1/home/mjilg/git/mw-lifecycle-analysis/p2/071425_master_discussi
combined_df <- read.csv(df_path, header = TRUE) |> combined_df <- read.csv(df_path, header = TRUE) |>
filter(comment_type == "task_description") filter(comment_type == "task_description")
combined_count_df <- combined_df |> combined_count_df <- combined_df |>
group_by(AuthorWMFAffil, week_index, source) %>% group_by(AuthorWMFAffil, week_index, source) %>%
summarise(unique_count = n_distinct(id), .groups = "drop") summarise(unique_count = n_distinct(id),
closed_relevance_count = sum(closed_relevance == TRUE, na.rm = TRUE),
closed_relevance_resolved_count = sum(closed_relevance == TRUE & status == "resolved", na.rm = TRUE),
closed_relevance_resolved_prop = closed_relevance_resolved_count / unique_count,
closed_relevance_prop = closed_relevance_count / unique_count,
.groups = "drop")
library(scales) library(scales)
library(ggplot2) library(ggplot2)
@ -18,10 +24,10 @@ affiliationColors <-
new_tasks <- combined_count_df |> new_tasks <- combined_count_df |>
ggplot(aes(x=week_index, ggplot(aes(x=week_index,
y=unique_count, y=closed_relevance_resolved_prop,
fill=factor(AuthorWMFAffil))) + fill=factor(AuthorWMFAffil))) +
geom_col(position='dodge2') + geom_col(position='dodge2') +
labs(x = "Relative Week", y = "New Tasks Created", fill="Task Author") + labs(x = "Relative Week", y = "% of New Tasks Resolved by Deployment's End", fill="Task Author") +
geom_vline(data = combined_df |> filter(source == "c1"), geom_vline(data = combined_df |> filter(source == "c1"),
aes(xintercept = -29), aes(xintercept = -29),
linetype = "dotted", color = "black", linewidth = 0.5) + linetype = "dotted", color = "black", linewidth = 0.5) +
@ -43,20 +49,20 @@ new_tasks <- combined_count_df |>
geom_vline(data = combined_df |> filter(source == "c3"), geom_vline(data = combined_df |> filter(source == "c3"),
aes(xintercept = -3), aes(xintercept = -3),
linetype = "3313", color = "black", linewidth = 0.5) + linetype = "3313", color = "black", linewidth = 0.5) +
geom_text(data = data.frame(source = "c1", relative_week = -39, lengthened_commit_count = 130), geom_text(data = data.frame(source = "c1", relative_week = -43, lengthened_commit_count = 0.95),
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 = 25), geom_text(data = data.frame(source = "c2", relative_week = 8, lengthened_commit_count = 0.95),
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 = 45), geom_text(data = data.frame(source = "c3", relative_week = -18, lengthened_commit_count = 0.95),
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,
labels = c("False" = "Unaffiliated", labels = c("False" = "Unaffiliated",
"True" = "WMF-affiliated")) + "True" = "WMF-affiliated")) +
ggtitle("New Phabricator Tasks During Deployment Process") + ggtitle("% of Tasks Resolved Within Three Months of Wide-release") +
theme_bw()+ theme_bw()+
theme( theme(
legend.position = "top", legend.position = "top",
@ -76,4 +82,4 @@ new_tasks <- combined_count_df |>
))) )))
new_tasks new_tasks
#ggsave(filename = "070525-d1-m2-tasks-faceted.png", plot = commit_authors, width = 15, height = 9, dpi = 800) ggsave(filename = "073125-fossy-tasks-resolved.png", plot = new_tasks, width = 15, height = 9, dpi = 800)