Catch-all Notebook

Code

library(tidyverse)

plots <- NULL

Code

library(ggforce)
library(ggplot2)

# Create the base plot
plots$isomorphism.diagram <- ggplot() +
  # Add the three circles
  geom_circle(aes(x0 = 0, y0 = 1, r = 0.9), color = "black", fill = "white") +  # Regulative/Coercive
  geom_circle(aes(x0 = -1, y0 = -0.5, r = 0.9), color = "black", fill = "white") +  # Cognitive
  geom_circle(aes(x0 = 1.0, y0 = -0.5, r = 0.9), color = "black", fill = "white") +  # Normative
  
  # Add labels for the main circles
  annotate("text", x = 0, y = 2.25, label = "Mimetic", size = 4, fontface =2) +
  annotate("text", x = 0, y = 1, size = 3, label = "setting and forgetting\nhandling ambiguity") +
  annotate("text", x = -1.0, y = -1.75, label = "Coercive", size = 4, fontface =2) +
  annotate("text", x = -1, y = -0.5, size = 3, label = "regulations\nde-federation\ncovenants") +
  annotate("text", x = 1.0, y = -1.75, label = "Normative", size = 4, fontface =2) +
  annotate("text", x = 1, y = -0.5, size = 3, label = "best practices") +

  # Set the theme and coordinates
  theme_void() +
  coord_fixed(xlim = c(-2.2, 2.2), ylim = c(-1.8, 2.5))

plots$isomorphism.diagram

Code

spots <- tibble::tribble(
  ~activity, ~spot_type, ~spot_date,
  "Rules Study", "CSCW", 3
)
project <- tibble::tribble(
  ~wp, ~activity, ~start_date, ~end_date,
  "Rules Study", "Qualitative analysis of interviews", "2025-03-01", "2025-03-31",
  "Rules Study", "Mixed analysis of rules", "2025-03-15", "2025-04-14",
  "Rules Study", "Write paper", "2025-04-01", "2025-05-01",
  "Rec. System", "Refine interface", "2025-03-01", "2025-03-14",
  "Rec. System", "Recruitment materials for user study", "2025-03-15", "2025-03-28",
  "Rec. System", "User study", "2025-03-29", "2025-04-27",
  "Rec. System", "Analyze and present user study results", "2025-04-28", "2025-05-12",
  "Dissertation", "Misc. dissertation work", "2025-05-14", "2025-06-13"
) %>%
  mutate(start_date = as.Date(start_date), end_date = as.Date(end_date))
plots$gantt <- ganttrify::ganttrify(
  project = project,
  spots = spots,
  project_start_date = "2025-03",
  wp_label_bold = FALSE,
  exact_date = TRUE
)

plots$gantt

Figure 1: Gantt chart for the timeline and major milestones remaining.

Code

saveRDS(plots, here::here("data/processed/other_plots.rds"))