new plot for results section

dsl/final_bivariate.R

@@ -4,6 +4,21 @@ library(dplyr)
 dsl_csv <-"~/dsl/111725_DSL_frame.csv"
 dsl_df <- read.csv(dsl_csv, header = TRUE) 
 
+
+ggplot(
+  dsl_df,
+  aes(
+    x=as.factor(week_index),
+    y= (TTR/168), 
+    fill=isAuthorWMF
+  )
+) + 
+  facet_grid(source ~ ., scales = "free_y") + 
+  geom_boxplot() +
+  theme_minimal() + 
+  scale_fill_viridis_d() + 
+  labs(x = "Weeks from Release", y = "Time to Resolution (weeks)", title = "TTR by Task Creation Date")
+
 weekly_summary <- dsl_df |>
   group_by(week_index, source, isAuthorWMF)|>
   summarise(