A line plot using different line styles (solid, dashed, dotted, dash-dot) to distinguish multiple data series. This is especially useful for black-and-white printing or when color distinction is insufficient.
#' anyplot.ai
#' line-styled: Styled Line Plot
#' Library: ggplot2 3.5.1 | R 4.4.1
#' Quality: 86/100 | Created: 2026-09-05
library(ggplot2)
library(ragg)
set.seed(42)
# --- Theme tokens -----------------------------------------------------------
THEME <- Sys.getenv("ANYPLOT_THEME", "light")
PAGE_BG <- if (THEME == "light") "#FAF8F1" else "#1A1A17"
ELEVATED_BG <- if (THEME == "light") "#FFFDF6" else "#242420"
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 --------------------------------------------------------------------
# Quarterly revenue trend for four product lines, indexed to a common base
# year so line-style distinction (not color) carries the reading for anyone
# printing this chart in black and white.
quarters <- 1:24
df <- tibble::tibble(
quarter = rep(quarters, times = 4),
revenue = c(
100 + cumsum(rnorm(24, mean = 2.6, sd = 3.0)),
100 + cumsum(rnorm(24, mean = 1.1, sd = 2.4)),
100 + cumsum(rnorm(24, mean = 0.4, sd = 3.4)),
100 + cumsum(rnorm(24, mean = -0.8, sd = 2.0))
),
product = factor(
rep(c("Hardware", "Software", "Services", "Accessories"), each = 24),
levels = c("Hardware", "Software", "Services", "Accessories")
)
)
# Custom dash patterns (rather than the stock "dotted"/"dotdash") so the two
# dot-based styles don't share a leading sub-pattern — the stock codes ("13"
# and "1343") start identically and blur together at small/mobile scale.
line_styles <- c(
"Hardware" = "solid",
"Software" = "dashed",
"Services" = "15",
"Accessories" = "6215"
)
# Grid lines rendered as flat INK read as high-contrast rather than a subtle
# guide; element_line() has no alpha in this ggplot2 version, so blend the
# alpha into the hex color itself.
GRID_COLOR <- grDevices::adjustcolor(INK, alpha.f = 0.2)
title_str <- "line-styled · r · ggplot2 · anyplot.ai"
# Highlight the focal series (Hardware) with an endpoint marker + annotation
# instead of a heavier linewidth, since the spec calls for consistent line
# width across all styles.
hardware_data <- df[df$product == "Hardware", ]
hardware_end <- hardware_data[which.max(hardware_data$quarter), ]
# --- Plot ---------------------------------------------------------------------
p <- ggplot(df, aes(x = quarter, y = revenue, color = product, linetype = product)) +
geom_line(linewidth = 1.1) +
geom_point(data = hardware_end, size = 2.4, show.legend = FALSE) +
annotate(
"text",
x = hardware_end$quarter,
y = hardware_end$revenue,
label = sprintf("%+.0f%%", hardware_end$revenue - 100),
color = IMPRINT_PALETTE[1],
hjust = -0.15,
size = 2.8,
fontface = "bold"
) +
scale_color_manual(values = IMPRINT_PALETTE[1:4]) +
scale_linetype_manual(values = line_styles) +
scale_x_continuous(expand = expansion(mult = c(0.02, 0.12))) +
labs(
title = title_str,
x = "Quarter",
y = "Revenue Index (base = 100)",
color = "Product Line",
linetype = "Product Line"
) +
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.y = element_line(color = GRID_COLOR, linewidth = 0.3),
panel.grid.minor = element_blank(),
panel.grid.major.x = element_blank(),
axis.title = element_text(color = INK, size = 10),
axis.text = element_text(color = INK_SOFT, size = 8),
axis.line = element_line(color = INK_SOFT),
axis.ticks = element_blank(),
plot.title = element_text(color = INK, size = 12),
legend.background = element_rect(fill = ELEVATED_BG, color = NA),
legend.key = element_rect(fill = ELEVATED_BG, color = NA),
legend.text = element_text(color = INK_SOFT, size = 8),
legend.title = element_text(color = INK, size = 10),
legend.position = "right"
)
# --- Save ----------------------------------------------------------------------
ggsave(
filename = sprintf("plot-%s.png", THEME),
plot = p,
device = ragg::agg_png,
width = 8,
height = 4.5,
units = "in",
dpi = 400
)
Runnable source as JSON, for any HTTP client: https://api.anyplot.ai/specs/line-styled/ggplot2/code. Any spec id and library id listed in llms-full.txt fit the same URL shape; every URL below is complete and callable.
{
"spec_id": "line-styled",
"language": "r",
"library": "ggplot2",
"page": "https://anyplot.ai/line-styled/r/ggplot2",
"hub": "https://anyplot.ai/line-styled",
"code_json": "https://api.anyplot.ai/specs/line-styled/ggplot2/code",
"spec_json": "https://api.anyplot.ai/specs/line-styled",
"render_light_png": "https://storage.googleapis.com/anyplot-images/plots/line-styled/r/ggplot2/plot-light.png",
"render_dark_png": "https://storage.googleapis.com/anyplot-images/plots/line-styled/r/ggplot2/plot-dark.png",
"quality_score": 86.0,
"license": "MIT",
"guide": "https://anyplot.ai/llms.txt"
}Part of Styled Line Plot on anyplot.ai.