diff --git a/073125-fossy-tasks-resolved.png b/073125-fossy-tasks-resolved.png
new file mode 100644
index 0000000..36db714
Binary files /dev/null and b/073125-fossy-tasks-resolved.png differ
diff --git a/mgaughan-rstudio-server_27851458.out b/mgaughan-rstudio-server_27851458.out
new file mode 100644
index 0000000..79aae66
--- /dev/null
+++ b/mgaughan-rstudio-server_27851458.out
@@ -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
diff --git a/p2/phab-new-task-plot-script.R b/p2/phab-new-task-plot-script.R
index d4f9e7f..db68c89 100644
--- a/p2/phab-new-task-plot-script.R
+++ b/p2/phab-new-task-plot-script.R
@@ -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) |> 
   filter(comment_type == "task_description")
 
+
 combined_count_df <- combined_df |>
   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(ggplot2)
@@ -18,10 +24,10 @@ affiliationColors <-
 
 new_tasks <- combined_count_df |>
   ggplot(aes(x=week_index, 
-             y=unique_count, 
+             y=closed_relevance_resolved_prop, 
              fill=factor(AuthorWMFAffil))) +
   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"), 
              aes(xintercept = -29), 
              linetype = "dotted", color = "black", linewidth = 0.5) +
@@ -43,20 +49,20 @@ new_tasks <- combined_count_df |>
   geom_vline(data = combined_df |> filter(source == "c3"), 
              aes(xintercept = -3), 
              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"), 
             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 = 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"), 
             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"), 
             inherit.aes = FALSE, color = "black", size = 4) +
   scale_fill_manual(values = affiliationColors,
                     labels = c("False" = "Unaffiliated",
                                "True" = "WMF-affiliated")) +
-  ggtitle("New Phabricator Tasks During Deployment Process") +
+  ggtitle("% of Tasks Resolved Within Three Months of Wide-release") +
   theme_bw()+
   theme(
     legend.position = "top",
@@ -76,4 +82,4 @@ new_tasks <- combined_count_df |>
   )))
 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)