jared
515bae8685
R-CMD-check / R CMD check (push) Successful in 3m41s
Replace the 16-color / 3-palette system with the full Civilytics design system: 53 named colors (full navy, ember, violet ramps plus teal, plum, moss, brass supporting hues) and 10 visualization palettes (qual, qual_warm, qual_cool, seq_ember, seq_navy, seq_violet, seq_paper_ink, div_navy_ember, div_violet_ember). Enrich theme_civilytics() with grid and paper_bg parameters, add theme_civilytics_slide() for presentations, and load all four brand fonts (Inter, Libre Franklin, Source Serif 4, JetBrains Mono). Add README.Rmd with rendered gallery showing all palettes, theme variants, grid options, dark/slide modes, facets, and scale usage.
102 lines
3.2 KiB
R
102 lines
3.2 KiB
R
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/theme.R
|
|
\name{theme_civilytics}
|
|
\alias{theme_civilytics}
|
|
\title{Civilytics ggplot2 theme}
|
|
\usage{
|
|
theme_civilytics(
|
|
font_size = 14,
|
|
font_family = CV_FONT_SANS,
|
|
title_family = CV_FONT_DISPLAY,
|
|
line_size = 0.5,
|
|
rel_small = 12/14,
|
|
rel_tiny = 11/14,
|
|
rel_large = 16/14,
|
|
ink = unname(civilytics_colors["ink"]),
|
|
paper = unname(civilytics_colors["paper"]),
|
|
accent = unname(civilytics_colors["ember_600"]),
|
|
strip_color = unname(civilytics_colors["paper_2"]),
|
|
grid = c("y", "x", "both", "none"),
|
|
paper_bg = TRUE
|
|
)
|
|
}
|
|
\arguments{
|
|
\item{font_size}{Numeric. Base font size in points. Default `14`.}
|
|
|
|
\item{font_family}{Character. Font family for body/axis text. Default
|
|
`"Inter"` (loaded via showtext).}
|
|
|
|
\item{title_family}{Character. Font family for plot titles and strip labels.
|
|
Default `"Libre Franklin"` (loaded via showtext).}
|
|
|
|
\item{line_size}{Numeric. Base line width. Default `0.5`.}
|
|
|
|
\item{rel_small}{Numeric. Scale factor for small text relative to
|
|
`font_size`. Default `12/14`.}
|
|
|
|
\item{rel_tiny}{Numeric. Scale factor for tiny text relative to `font_size`.
|
|
Default `11/14`.}
|
|
|
|
\item{rel_large}{Numeric. Scale factor for large text (titles) relative to
|
|
`font_size`. Default `16/14`.}
|
|
|
|
\item{ink}{Character. Hex code for foreground/text color. Defaults to
|
|
[civilytics_colors]`["ink"]` (`#0E1A2B`).}
|
|
|
|
\item{paper}{Character. Hex code for background color. Defaults to
|
|
[civilytics_colors]`["paper"]` (`#FAF7F2`).}
|
|
|
|
\item{accent}{Character. Hex code for accent/highlight color. Defaults to
|
|
[civilytics_colors]`["ember_600"]` (`#C25311`).}
|
|
|
|
\item{strip_color}{Character. Hex code for facet strip background. Defaults
|
|
to [civilytics_colors]`["paper_2"]` (`#F2EDE4`).}
|
|
|
|
\item{grid}{Character. Which major gridlines to draw: `"y"` (default,
|
|
horizontal only), `"x"` (vertical only), `"both"`, or `"none"`.}
|
|
|
|
\item{paper_bg}{Logical. If `TRUE` (default), fill the plot and panel
|
|
backgrounds with the warm `paper` color. Set to `FALSE` for a
|
|
transparent background (useful for slides or overlay on colored
|
|
surfaces).}
|
|
}
|
|
\value{
|
|
A complete ggplot2 [ggplot2::theme()] object.
|
|
}
|
|
\description{
|
|
A complete ggplot2 theme built on [ggplot2::theme_grey()] using the
|
|
Civilytics brand color palette and typography. Requires ggplot2 >= 4.0.0
|
|
for the `ink`, `paper`, and `accent` base-theme parameters.
|
|
}
|
|
\details{
|
|
Produces an editorial, Pew-style layout: visible x-axis line to ground
|
|
the data, light horizontal gridlines for reference, no panel border or
|
|
y-axis line. Plot title and caption are left-aligned to the full plot
|
|
region.
|
|
|
|
Brand fonts (Inter for UI text, Libre Franklin for titles) are loaded
|
|
automatically via [showtext] when the package is attached. Call
|
|
[civilytics_load_fonts()] to reload them if needed.
|
|
}
|
|
\examples{
|
|
\dontrun{
|
|
library(ggplot2)
|
|
|
|
# Default editorial theme
|
|
ggplot(mpg, aes(displ, hwy)) +
|
|
geom_point() +
|
|
theme_civilytics()
|
|
|
|
# With both gridlines and brand colors
|
|
ggplot(mpg, aes(displ, hwy, colour = class)) +
|
|
geom_point() +
|
|
scale_color_civilytics() +
|
|
theme_civilytics(grid = "both")
|
|
|
|
# Transparent background for embedding
|
|
ggplot(mpg, aes(displ, hwy)) +
|
|
geom_point() +
|
|
theme_civilytics(paper_bg = FALSE)
|
|
}
|
|
}
|