updating wikia plotting for ve'

121325_work/ve-commit-comparison.R

@@ -34,9 +34,21 @@ joint_df <- joint_df |>
     grepl("l10n-bot@translatewiki\\.net", author_email, ignore.case = TRUE) ~ "localization",
     grepl("@wikimedia\\.org", author_email, ignore.case = TRUE) ~ "TRUE",
     grepl("@wikimedia\\.de", author_email, ignore.case = TRUE) ~ "TRUE",
+    grepl("@wikia-inc\\.com", author_email, ignore.case = TRUE) ~ "Wikia",
     grepl("@gerrit\\.wikimedia\\.org", author_email, ignore.case = TRUE) ~ "Gerrit",
     TRUE ~ "FALSE"
   ))
+
+
+#looking up share of commits 
+commit_share <- joint_df |>
+  filter(repo=="core")|>
+  filter(commit_date >= as.Date("2012-11-11") & commit_date <= as.Date("2015-09-30"))|>
+  group_by(isAuthorWMF)|>
+  summarise(count = n())
+
+
+
 library(tidyr)
 authors_in_both <- joint_df |> 
   group_by(author_email, repo) |> 
@@ -58,7 +70,9 @@ c1_weekly <- joint_df |>
 counts <- c1_weekly |>
   filter(isAuthorWMF != "Gerrit")|>
   filter(isAuthorWMF != "localization")|>
-  filter(source == 'c1') 
+  filter(source == 'c1') |>
+  mutate(isAuthorWMF = factor(isAuthorWMF, 
+                              levels = c("FALSE", "Wikia", "TRUE")))
 #counts <- c1_core_weekly |>
 #  filter(isAuthorWMF == "ActiveEmails") |>
 #  filter(source == 'c1') 
@@ -90,17 +104,18 @@ commits_created <-
     aes(x=week_index, y=75, label='Opt-out deployment'),
     size = 3) + 
   geom_text(
-    data = subset(counts, repo == "core" & week_index == -27),
+    data = subset(counts, repo == "core" & week_index == -26),
     aes(x=week_index, y=75, label='Opt-in Testing'),
     size = 3) + 
   geom_text(
-    data = subset(counts, repo == "core" & week_index == -8),
-    aes(x=week_index, y=75, label='Deployment Announcement'),
+    data = subset(counts, repo == "core" & week_index == -9),
+    aes(x=week_index, y=75, label='Deployment Announcement   '),
     size = 3) + 
   theme_minimal() + 
   scale_fill_viridis_d(
-    breaks = c("FALSE", "TRUE", "BzImport"),    
-    labels = c("External Contributor", "WMF-affiliate", "BzImport")  
+    breaks = c("FALSE", "TRUE", "Wikia"),    
+    labels = c("External Contributor", "WMF-affiliate", "Wikia"),
+    direction = 1
   ) + 
   labs(
     x = "Weeks from VisualEditor Deployment on Wikipedia", 
@@ -110,7 +125,7 @@ commits_created <-
   theme(legend.position = "top")
 commits_created
 ggsave(
-  filename = "011925_ve_commits_created.png",
+  filename = "012026_nowikia_ve_commits_created.png",
   plot = commits_created,
   width = 8,    # inches
   height = 4,   # inches