{"spec_id":"violin-grouped-swarm","library":"ggplot2","language":"r","code":"#' anyplot.ai\n#' violin-grouped-swarm: Grouped Violin Plot with Swarm Overlay\n#' Library: ggplot2 3.5.1 | R 4.4.1\n#' Quality: 88/100 | Created: 2026-05-18\n\nlibrary(ggplot2)\nlibrary(ragg)\n\nset.seed(42)\n\n# --- Theme tokens -----------------------------------------------------------\nTHEME       <- Sys.getenv(\"ANYPLOT_THEME\", \"light\")\nPAGE_BG     <- if (THEME == \"light\") \"#FAF8F1\" else \"#1A1A17\"\nINK         <- if (THEME == \"light\") \"#1A1A17\" else \"#F0EFE8\"\nINK_SOFT    <- if (THEME == \"light\") \"#4A4A44\" else \"#B8B7B0\"\nIMPRINT   <- c(\"#009E73\", \"#C475FD\", \"#4467A3\", \"#BD8233\",\n                 \"#AE3030\", \"#2ABCCD\", \"#954477\")\n\n# --- Data -------------------------------------------------------------------\n# Response times (ms) across task types and expertise levels\nset.seed(42)\nn_per_group <- 50\n\ndf <- data.frame(\n  category = character(n_per_group * 6),\n  group = character(n_per_group * 6),\n  value = numeric(n_per_group * 6),\n  stringsAsFactors = FALSE\n)\n\nidx <- 1\nfor (cat in c(\"Data Entry\", \"Analysis\", \"Decision-Making\")) {\n  for (grp in c(\"Junior\", \"Senior\")) {\n    mean_val <- if (cat == \"Data Entry\") {\n      if (grp == \"Junior\") 800 else 520\n    } else if (cat == \"Analysis\") {\n      if (grp == \"Junior\") 1500 else 975\n    } else {\n      if (grp == \"Junior\") 2200 else 1430\n    }\n\n    sd_val <- if (cat == \"Data Entry\") 200 else if (cat == \"Analysis\") 300 else 350\n    if (grp == \"Senior\") sd_val <- sd_val * 0.75\n\n    for (i in 1:n_per_group) {\n      df$category[idx] <- cat\n      df$group[idx] <- grp\n      df$value[idx] <- max(100, rnorm(1, mean = mean_val, sd = sd_val))\n      idx <- idx + 1\n    }\n  }\n}\n\n# --- Plot -------------------------------------------------------------------\np <- ggplot(df, aes(x = category, y = value, fill = group, color = group)) +\n  geom_violin(\n    alpha = 0.5,\n    linewidth = 0.6,\n    position = position_dodge(width = 0.8)\n  ) +\n  geom_point(\n    size = 2.5,\n    alpha = 0.6,\n    position = position_dodge(width = 0.8),\n    shape = 21,\n    stroke = 0.5\n  ) +\n  scale_fill_manual(values = IMPRINT[1:2]) +\n  scale_color_manual(values = IMPRINT[1:2]) +\n  labs(\n    title = \"violin-grouped-swarm · R · ggplot2 · anyplot.ai\",\n    x = \"Task Type\",\n    y = \"Response Time (ms)\",\n    fill = \"Expertise Level\",\n    color = \"Expertise Level\"\n  ) +\n  theme_minimal(base_size = 14) +\n  theme(\n    plot.background  = element_rect(fill = PAGE_BG, color = PAGE_BG),\n    panel.background = element_rect(fill = PAGE_BG, color = NA),\n    panel.grid.major = element_line(color = INK, linewidth = 0.3),\n    panel.grid.minor = element_blank(),\n    axis.title       = element_text(color = INK, size = 20, face = \"bold\"),\n    axis.text        = element_text(color = INK_SOFT, size = 16),\n    plot.title       = element_text(color = INK, size = 24, face = \"bold\"),\n    legend.background = element_rect(fill = PAGE_BG, color = NA),\n    legend.text      = element_text(color = INK_SOFT, size = 16),\n    legend.title     = element_text(color = INK, size = 18, face = \"bold\"),\n    legend.position  = \"top\",\n    panel.border     = element_rect(color = INK_SOFT, fill = NA, linewidth = 0.4)\n  )\n\n# --- Save -------------------------------------------------------------------\nggsave(\n  filename = sprintf(\"plot-%s.png\", THEME),\n  plot     = p,\n  device   = ragg::agg_png,\n  width    = 16,\n  height   = 9,\n  units    = \"in\",\n  dpi      = 300\n)\n"}