hrbrthemes

Additional Themes and Theme Components for ‘ggplot2’

---

This is a very focused package that provides typography-centric themes and theme components for ggplot2.

The core theme: theme_ipsum (“ipsum” is Latin for “precise”) uses Arial Narrow which should be installed on practically any modern system, so it’s “free”-ish. This font is condensed, has solid default kerning pairs and geometric numbers. That’s what I consider the “font trifecta” must-have for charts. An additional quality for fonts for charts is that they have a diversity of weights. Arial Narrow (the one on most systems, anyway) does not have said diversity but this quality is not (IMO) a “must have”.

The following functions are implemented/objects are exported:

Themes:

• theme_ipsum: Arial Narrow
• theme_ipsum_gs: Goldman Sans Condensed
• theme_ipsum_es: Econ Sans Condensed
• theme_ipsum_rc: Roboto Condensed
• theme_ipsum_ps: IBM Plex Sans font
• theme_ipsum_pub: Public Sans
• theme_ipsum_tw: Titilium Web
• theme_modern_rc: Roboto Condensed dark theme
• theme_ft_rc: Dark theme based on FT’s dark theme (Roboto Condensed)

Scales (that align with various themes):

• scale_color_ipsum: Discrete color & fill scales based on the ipsum palette
• scale_colour_ipsum: Discrete color & fill scales based on the ipsum palette
• scale_fill_ipsum: Discrete color & fill scales based on the ipsum palette
• scale_color_ft: Discrete color & fill scales based on the FT palette
• scale_colour_ft: Discrete color & fill scales based on the FT palette
• scale_fill_ft: Discrete color & fill scales based on the FT palette
• scale_x_comma: X & Y scales with opinionated presets for percent & comma label formats
• scale_x_percent: X & Y scales with opinionated presets for percent & comma label formats
• scale_y_comma: X & Y scales with opinionated presets for percent & comma label formats
• scale_y_percent: X & Y scales with opinionated presets for percent & comma label formats

Palettes/Named Colors:

• ipsum_pal: A muted, qualitative color palette
• ft_cols: FT color palette
• ft_pal: A bright qualitative color palette
• ft_text_col: FT color palette
• bit12: A vector of 12 vibrant colors for categorical data
• bit12_extended: List of 12 color palettes with 9 shades each for continuous interpolation

Fonts:

• font_an: Arial Narrow font name R variable aliases
• font_es: Econ Sans font name R variable aliases
• font_es_bold: Econ Sans font name R variable aliases
• font_es_light: Econ Sans font name R variable aliases
• font_rc: Roboto Condensed font name R variable aliases
• font_rc_light: Roboto Condensed font name R variable aliases
• font_pub: Public Sans font name R variable aliases
• font_pub_bold: Public Sans font name R variable aliases
• font_pub_light: Public Sans font name R variable aliases
• font_pub_thin: Public Sans font name R variable aliases
• font_ps: PlexSans font name R variable aliases
• font_ps_light: PlexSans font name R variable aliases

Flexoki Color Scales:

• scale_fill_flexoki_continuous: Continuous Fill Scale Using Flexoki Colors
• scale_fill_flexoki_dark: Discrete Fill Scale Using Flexoki Dark Colors
• scale_fill_flexoki_dark_distiller: Distiller Fill Scale Using Flexoki Dark Colors
• scale_fill_flexoki_dark_spectrum: Distiller Fill Scale Across All Flexoki Dark Colors
• scale_fill_flexoki_light: Discrete Fill Scale Using Flexoki Light Colors
• scale_fill_flexoki_light_distiller: Distiller Fill Scale Using Flexoki Light Colors
• scale_fill_flexoki_light_spectrum: Distiller Fill Scale Across All Flexoki Light Colors

Bit12 Color Scales:

• scale_color_bit12: Discrete Color Scale Using Bit12 Colors
• scale_fill_bit12: Discrete Fill Scale Using Bit12 Colors
• scale_color_bit12_continuous: Continuous Color Scale Using Bit12 Colors
• scale_fill_bit12_continuous: Continuous Fill Scale Using Bit12 Colors
• scale_color_bit12_distiller: Distiller Color Scale Using Bit12 Colors
• scale_fill_bit12_distiller: Distiller Fill Scale Using Bit12 Colors
• scale_color_bit12_spectrum: Distiller Color Scale Across All Bit12 Colors
• scale_fill_bit12_spectrum: Distiller Fill Scale Across All Bit12 Colors

Flexoki Palettes:

• flexoki_light: Vector of 8 colors in the light variant
• flexoki_dark: Vector of 8 colors in the dark variant
• flexoki_extended: List of 8 color palettes with 13 shades each for continuous interpolation

Utilities:

• flush_ticks: Makes axis text labels flush on the ends
• ft_geom_defaults: Change geom defaults from black to custom lights for the FT theme
• gg_check: Spell check ggplot2 plot labels
• import_econ_sans: Import Econ Sans Condensed font for use in charts
• import_plex_sans: Import IBM Plex Sans font for use in charts
• import_roboto_condensed: Import Roboto Condensed font for use in charts
• modern_geom_defaults: Change geom defaults from black to white for the modern theme
• update_geom_font_defaults: Update matching font defaults for text geoms

Installation

``` r install.packages("hrbrthemes") # NOTE: CRAN version is 0.8.7

or

remotes::install_git("https://codeberg.org/hrbrmstr/hrbrthemes.git") ```

NOTE: To use the ‘remotes’ install options you will need to have the {remotes} package installed.

Usage

``` r library(hrbrthemes) library(gcookbook) library(tidyverse)

current version

packageVersion("hrbrthemes")

[1] '0.9.2'

```

Base theme (Arial Narrow)

r ggplot(mtcars, aes(mpg, wt)) + geom_point() + labs(x="Fuel efficiency (mpg)", y="Weight (tons)", title="Seminal ggplot2 scatterplot example", subtitle="A plot that is only useful for demonstration purposes", caption="Brought to you by the letter 'g'") + theme_ipsum()

Roboto Condensed

r ggplot(mtcars, aes(mpg, wt)) + geom_point() + labs(x="Fuel efficiency (mpg)", y="Weight (tons)", title="Seminal ggplot2 scatterplot example", subtitle="A plot that is only useful for demonstration purposes", caption="Brought to you by the letter 'g'") + theme_ipsum_rc()

New FT Theme!

r ggplot(mtcars, aes(mpg, wt)) + geom_point(color = ft_cols$yellow) + labs(x="Fuel efficiency (mpg)", y="Weight (tons)", title="Seminal ggplot2 scatterplot example", subtitle="A plot that is only useful for demonstration purposes", caption="Brought to you by the letter 'g'") + theme_ft_rc()

IBM Plex Sans

``` r ggplot(mpg, aes(displ, hwy)) + geomjitter(aes(color=class, fill=class), size=3, shape=21, alpha=1/2) + scalexcontinuous(expand=c(0,0), limits=c(1, 8), breaks=1:8) + scaleycontinuous(expand=c(0,0), limits=c(10, 50)) + scalecoloripsum() + scalefillipsum() + facetwrap(~class, scales="free") + labs( title="IBM Plex Sans Test", subtitle="This is a subtitle to see the how it looks in IBM Plex Sans", caption="Source: hrbrthemes & IBM" ) + themeipsumps(grid="XY", axis="xy") + theme(legend.position="none") -> gg

flush_ticks(gg)

theme(axis.text.x=element_text(hjust=c(0, rep(0.5, 6), 1))) +

theme(axis.text.y=element_text(vjust=c(0, rep(0.5, 3), 1)))

```

Scales (Color/Fill)

r ggplot(mtcars, aes(mpg, wt)) + geom_point(aes(color=factor(carb))) + labs(x="Fuel efficiency (mpg)", y="Weight (tons)", title="Seminal ggplot2 scatterplot example", subtitle="A plot that is only useful for demonstration purposes", caption="Brought to you by the letter 'g'") + scale_color_ipsum() + theme_ipsum_rc()

Scales (Axis)

r count(mpg, class) %>% mutate(pct=n/sum(n)) %>% ggplot(aes(class, pct)) + geom_col() + scale_y_percent() + labs(x="Fuel efficiency (mpg)", y="Weight (tons)", title="Seminal ggplot2 column chart example with percents", subtitle="A plot that is only useful for demonstration purposes", caption="Brought to you by the letter 'g'") + theme_ipsum(grid="Y")

r ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + geom_area() + scale_fill_ipsum() + scale_x_continuous(expand=c(0,0)) + scale_y_comma() + labs(title="Age distribution of population in the U.S., 1900-2002", subtitle="Example data from the R Graphics Cookbook", caption="Source: R Graphics Cookbook") + theme_ipsum_rc(grid="XY") + theme(axis.text.x=element_text(hjust=c(0, 0.5, 0.5, 0.5, 1))) + theme(legend.position="bottom")

``` r updategeomfontdefaults(fontrc_light)

count(mpg, class) %>% mutate(n=n*2000) %>% arrange(n) %>% mutate(class=factor(class, levels=class)) %>% ggplot(aes(class, n)) + geomcol() + geomtext(aes(label=scales::comma(n)), hjust=0, nudgey=2000) + scaleycomma(limits=c(0,150000)) + coordflip() + labs(x="Fuel efficiency (mpg)", y="Weight (tons)", title="Seminal ggplot2 column chart example with commas", subtitle="A plot that is only useful for demonstration purposes, esp since you'd never\nreally want direct labels and axis labels", caption="Brought to you by the letter 'g'") + themeipsumrc(grid="X") ```

Spellcheck ggplot2 labels

``` r df <- data.frame(x=c(20, 25, 30), y=c(4, 4, 4), txt=c("One", "Two", "Three"))

ggplot(mtcars, aes(mpg, wt)) + geompoint() + labs(x="This is some txt", y="This is more text", title="Thisy is a titlle", subtitle="This is a subtitley", caption="This is a captien") + themeipsum_rc(grid="XY") -> gg

gg_check(gg)

Possible misspelled words in [title]: (Thisy, titlle)

Possible misspelled words in [subtitle]: (subtitley)

Possible misspelled words in [caption]: (captien)

```

Flexoki Color Scales

The Flexoki color system provides both discrete and continuous color scales in light and dark variants.

``` r

Discrete colors example with light variant

ggplot(mpg, aes(class, fill=class)) + geombar() + labs(title="Flexoki Light Colors", subtitle="Discrete color scale example", caption="Using scalefillflexokilight()") + themeipsum() + scalefillflexokilight() + theme(legend.position="none") ```

``` r

Dark variant with points

ggplot(mpg, aes(displ, hwy, color=class)) + geompoint(size=3) + labs(title="Flexoki Dark Colors", subtitle="Another discrete color example", caption="Using scalecolorflexokidark()") + themeipsumrc() + scalecolorflexoki_dark() ```

``` r library(patchwork)

data.frame( x = rep(1:50, 50), y = rep(1:50, each=50), z = sqrt((rep(1:50, 50)-25)^2 + (rep(1:50, each=50)-25)^2) ) -> grad_df

names(flexokidark) |> map((.p) { ggplot(graddf, aes(x, y, fill=z)) + geomtile() + scalefillflexokicontinuous(palette = .p) + labs( x = NULL, y = NULL ) + themeipsum(grid="") + theme(legend.position = "none") }) |> do.call(what = "wrapplots") + plotlayout(ncol = 4) + plotannotation( title="Flexoki Continuous Color Scales", subtitle="All 8 continuous color palettes", caption="Using scalefillflexokicontinuous()", theme = themeipsum(grid="") ) ```

Bit12 Color Scales

The Bit12 color system provides a set of 12 distinct colors optimized for data visualization.

``` r

Discrete colors example

ggplot(mpg, aes(class, fill=class)) + geombar() + labs(title="Bit12 Color Palette", subtitle="A vibrant 12-color categorical palette", caption="Using scalefillbit12()") + themeipsum() + scalefillbit12() + theme(legend.position="none") ```

``` r library(patchwork)

Taking a subset of the palette for this example

names(bit12)[c(1,3,5,7,9,11)] |> map((.p) { ggplot(graddf, aes(x, y, fill=z)) + geomtile() + scalefillbit12continuous(palette = .p) + labs( x = NULL, y = NULL, title = .p ) + themeipsum(grid="") + theme(legend.position = "none") }) |> do.call(what = "wrapplots") + plotlayout(ncol = 3) + plotannotation( title="Bit12 Continuous Color Scales", subtitle="Selected continuous color palettes", caption="Using scalefillbit12continuous()", theme = theme_ipsum(grid="") ) ```

hrbrthemes Metrics

| Lang | # Files | (%) | LoC | (%) | Blank lines | (%) | # Lines | (%) | |:-----|---------:|-----:|-----:|-----:|------------:|----:|---------:|----:| | R | 23 | 0.44 | 1840 | 0.46 | 339 | 0.5 | 1290 | 0.5 | | SVG | 2 | 0.04 | 150 | 0.04 | 0 | 0.0 | 0 | 0.0 | | JSON | 1 | 0.02 | 15 | 0.00 | 0 | 0.0 | 0 | 0.0 | | SUM | 26 | 0.50 | 2005 | 0.50 | 339 | 0.5 | 1290 | 0.5 |

{cloc} 📦 metrics for hrbrthemes

Code of Conduct

Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.