general revisions to sprint report

Author: hturner

r_project_sprint/report/R/experience.R

@@ -70,8 +70,6 @@ activities2 |>
           panel.grid.minor = element_blank(),
           panel.grid.major.y = element_blank())
 
-ggsave("sprint_activities.png", path = here(dir, "figures"), device = "png",
-       dpi = 320, width = 8, height = 5)
 ggsave("sprint_activities.pdf", path = here(dir, "figures"), device = cairo_pdf,
        width = 8, height = 5)
 ggsave("sprint_activities.svg", path = here(dir, "figures"), device = svg,
@@ -131,8 +129,6 @@ firsts2 |>
           panel.grid.minor = element_blank(),
           panel.grid.major.y = element_blank())
 
-ggsave("first_activities.png", path = here(dir, "figures"), device = "png",
-       dpi = 320, width = 11, height = 3)
 ggsave("first_activities.svg", path = here(dir, "figures"), device = svg,
        width = 11, height = 3)
 ggsave("first_activities.pdf", path = here(dir, "figures"), device = cairo_pdf,

r_project_sprint/report/R/participants.R

@@ -1,5 +1,4 @@
 library(dplyr)
-library(forcats)
 library(ggplot2)
 library(here)
 library(readr)
@@ -15,6 +14,7 @@ location <- read_csv(here(dir, "data", "location.csv"))
 dat <- location |>
   mutate(Country = case_when(
     `Country of residence` == "Russian Federation" ~ "Russia",
+    `Country of residence` == "United States of America" ~ "United States",
     .default = `Country of residence`
   )) |>
   count(Country)
@@ -27,25 +27,21 @@ my_world <- rnaturalearth::ne_countries(scale = "medium", returnclass = "sf") |>
 my_world |>
   full_join(dat, by = "Country") |>
   ggplot() +
-  geom_sf(aes(fill = n)) +
+  geom_sf(aes(fill = n), linewidth = 0.2) +
   coord_sf(crs = "+proj=eqearth +wktext") +
   scale_fill_viridis_c(
     option = "C",
     breaks = seq(1, 13, 2),
     na.value = "grey85"
   ) +
   theme(
-    panel.background = element_rect(fill = "azure"),
+    panel.background = element_blank(),
     panel.grid = element_line(color = "#ebebeb"),
     legend.position = c(0.97, 0.84),
     legend.background = element_blank(),
-    panel.border = element_rect(fill = NA),
+    panel.border = element_blank(),
   )
 
-ggsave("participant_map.png",
-  path = here(dir, "figures"), device = "png",
-  dpi = 320, width = 10, height = 5
-)
 ggsave("participant_map.svg",
   path = here(dir, "figures"), device = svg,
   width = 10, height = 5
@@ -81,8 +77,6 @@ contributor_level |>
           panel.grid.minor = element_blank(),
           panel.grid.major.x = element_blank())
 
-ggsave("contributor_level.png", path = here(dir, "figures"), device = "png",
-       dpi = 320, width = 5, height = 3)
 ggsave("contributor_level.svg", path = here(dir, "figures"), device = svg,
        width = 5, height = 3)
 ggsave("contributor_level.pdf", path = here(dir, "figures"), device = cairo_pdf,
@@ -104,8 +98,6 @@ translator_level |>
           panel.grid.minor = element_blank(),
           panel.grid.major.x = element_blank())
 
-ggsave("translator_level.png", path = here(dir, "figures"), device = "png",
-       dpi = 320, width = 5, height = 3)
 ggsave("translator_level.pdf", path = here(dir, "figures"), device = cairo_pdf,
        width = 5, height = 3)
 ggsave("translator_level.svg", path = here(dir, "figures"), device = svg,

r_project_sprint/report/R/review.R

@@ -72,7 +72,7 @@ review |>
     labs(x = NULL, y = NULL) +
     coord_flip() +
     facet_grid(~ Timepoint) +
-    theme_minimal() +
+    theme_minimal(base_size = 12) +
     theme(axis.text.y = element_text(colour = mid_text, size = rel(1)),
           panel.grid.minor = element_blank(),
           panel.grid.major.y = element_blank())

r_project_sprint/report/R/translations.R

@@ -1,16 +1,12 @@
-library(anytime)
 library(dplyr)
-library(forcats)
 library(ggplot2)
-library(lubridate)
-library(RColorBrewer)
-library(tidyr)
 library(readr)
+library(viridis)
 
 here::i_am("r_project_sprint/report/R/translations.R")
 dir <- "r_project_sprint/report"
-unit_summary <- read_csv(here::here(dir, "data", "unit_summary.csv"))
 
+unit_summary <- read_csv(here::here(dir, "data", "unit_summary.csv"))
 
 # Pre-processing - only leaves changes from R project (not recommended packages)
 
@@ -29,20 +25,25 @@ unit_summary <- unit_summary |>
                             "translation uploaded")) |>
     mutate(progress = factor(progress, progress_lev))
 
-#Across languages
+# plot changes across languages
+
+pal <- viridis_pal(option = "C")(4)
+
+col <- c("#7f7f7f",
+         colorRampPalette(c(pal[1], "white"))(4)[-4],
+         colorRampPalette(c(pal[2], "white"))(3)[-3],
+         colorRampPalette(c(pal[3:4], "yellow"))(4)[-4])
 
-col <- c(brewer.pal(4, "Greens")[-1], brewer.pal(4, "Oranges")[2:3], brewer.pal(4, "Blues"))
 unit_summary |>
     ggplot(aes(fill = progress, x = fct_infreq(translation))) +
     geom_bar() +
-    scale_fill_manual(values = col) +
+    scale_fill_manual(values = rev(col)) +
     labs(x = NULL, y = NULL) +
     theme_minimal(base_size = 36) +
     theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1),
           legend.title=element_blank(),
           panel.grid.minor = element_blank(),
           panel.grid.major.x = element_blank())
 
-ggsave(here::here(dir, "figures", "translations.png"), width = 20, height = 11, units = "in", device = "png", dpi = 320)
 ggsave(here::here(dir, "figures", "translations.svg"), width = 20, height = 11, units = "in", device = svg)
 ggsave(here::here(dir, "figures", "translations.pdf"), width = 20, height = 11, units = "in", device = cairo_pdf)