Basic Strip Plot — ggplot2

A strip plot displays individual data points for each category along a single axis, with random horizontal jitter applied to reduce overplotting. Unlike box plots or violin plots that show summary statistics, strip plots reveal every observation, making them ideal for small to medium datasets where individual values matter. The random jitter spreads points horizontally within each category to show density through point accumulation.

Basic Strip Plot rendered with ggplot2

Renders

R source (ggplot2)

#' anyplot.ai
#' strip-basic: Basic Strip Plot
#' Library: ggplot2 3.5.1 | R 4.4.1
#' Quality: 92/100 | Created: 2026-08-05

library(ggplot2)
library(ragg)

set.seed(42)

# Theme tokens (see prompts/default-style-guide.md "Background" + "Theme-adaptive Chrome")
THEME       <- Sys.getenv("ANYPLOT_THEME", "light")
PAGE_BG     <- if (THEME == "light") "#FAF8F1" else "#1A1A17"
INK         <- if (THEME == "light") "#1A1A17" else "#F0EFE8"
INK_SOFT    <- if (THEME == "light") "#4A4A44" else "#B8B7B0"
IMPRINT_PALETTE <- c("#009E73", "#C475FD", "#4467A3", "#BD8233",
                     "#AE3030", "#2ABCCD", "#954477", "#99B314")

# Data: time to symptom relief across drug trial groups
groups <- c("Placebo", "Drug A", "Drug B", "Drug C")
group_means <- c(58, 41, 33, 27)
group_sds   <- c(14, 12, 10, 9)
group_n     <- c(70, 70, 70, 70)

df <- do.call(rbind, lapply(seq_along(groups), function(i) {
  data.frame(
    group = groups[i],
    minutes = pmax(5, rnorm(group_n[i], mean = group_means[i], sd = group_sds[i]))
  )
}))
df$group <- factor(df$group, levels = groups)

# Plot
p <- ggplot(df, aes(x = group, y = minutes, color = group)) +
  geom_jitter(width = 0.18, size = 2.5, alpha = 0.6, show.legend = FALSE) +
  stat_summary(fun = mean, geom = "crossbar", width = 0.5,
               color = INK_SOFT, linewidth = 0.5, fatten = 1) +
  stat_summary(
    aes(label = after_stat(sprintf("%.0f min", y))),
    fun = mean, geom = "text", color = INK, size = 3,
    fontface = "bold", hjust = 0, vjust = 0.5,
    position = position_nudge(x = 0.32), show.legend = FALSE
  ) +
  scale_color_manual(values = IMPRINT_PALETTE) +
  labs(
    x = "Treatment Group",
    y = "Time to Symptom Relief (minutes)",
    title = "strip-basic · r · ggplot2 · anyplot.ai"
  ) +
  theme_minimal(base_size = 8) +
  theme(
    plot.background   = element_rect(fill = PAGE_BG, color = PAGE_BG),
    panel.background  = element_rect(fill = PAGE_BG, color = NA),
    panel.grid.major.x = element_blank(),
    panel.grid.minor  = element_blank(),
    panel.grid.major.y = element_line(color = INK, linewidth = 0.3),
    axis.title        = element_text(color = INK, size = 10),
    axis.text         = element_text(color = INK_SOFT, size = 8),
    axis.ticks        = element_blank(),
    plot.title        = element_text(color = INK, size = 12)
  )

# Save
ggsave(
  filename = sprintf("plot-%s.png", THEME),
  plot     = p,
  device   = ragg::agg_png,
  width    = 8,
  height   = 4.5,
  units    = "in",
  dpi      = 400
)

Part of Basic Strip Plot on anyplot.ai.

Other implementations