diff --git a/121325_work/ve-commit-comparison.R b/121325_work/ve-commit-comparison.R index 275b921..9d04251 100644 --- a/121325_work/ve-commit-comparison.R +++ b/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 diff --git a/final_plots/011926_ve_commits_created.png b/final_plots/011926_ve_commits_created.png deleted file mode 100644 index f8835bc..0000000 Binary files a/final_plots/011926_ve_commits_created.png and /dev/null differ diff --git a/final_plots/012026_nowikia_ve_commits_created.png b/final_plots/012026_nowikia_ve_commits_created.png new file mode 100644 index 0000000..acae140 Binary files /dev/null and b/final_plots/012026_nowikia_ve_commits_created.png differ diff --git a/final_plots/012026_ve_commits_created.png b/final_plots/012026_ve_commits_created.png new file mode 100644 index 0000000..150ab66 Binary files /dev/null and b/final_plots/012026_ve_commits_created.png differ