dungates/DGThemes
Additional Themes, Theme Components and Utilities for 'ggplot2'

Package index
Search the dungates/DGThemes package
Vignettes
Functions
117
Source code
28
Man pages
47
Home
/
GitHub
/
dungates/DGThemes
/
README.md

README.md
In dungates/DGThemes: Additional Themes, Theme Components and Utilities for 'ggplot2'

DGThemes

Additional Themes and Theme Components for ‘ggplot2::ggplot2’

This is a personal package for themes and theme components for ggplot2::ggplot2, gt, and other tools as I discover and use them throughout R.

The core theme: theme_premium uses Tisa Sans Pro which will need to be installed on just about any system, and can be downloaded here or from this github. This font is condensed, has solid default kerning pairs and geometric numbers. That’s what I consider the “font trifecta” must-have for charts. A common prerequisite for charts for fonts is that they have a diversity of weights. Tisa Sans Pro has a wealth of diversity in its weights, as well as a pristine quality to its base font.

The following functions for ggplot2::ggplot2 are implemented/objects are exported:

Themes:

Scales (that align with various themes):

Palettes/Named Colors:

Fonts:

R Markdown:

Utilities:

The following functions for gt are implemented/objects are exported:

Installation

# If this ever gets on the CRAN
install.packages("DGThemes")
devtools::install_github("dungates/DGThemes")
remotes::install_github("dungates/DGThemes")

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

Usage

library(DGThemes)
library(gcookbook)
library(ggplot2)

# current verison
packageVersion("DGThemes")

## [1] '0.8.6'

Base theme (Tisa Sans Pro)

mtcars %>%
  dplyr::arrange(dplyr::desc(mpg)) %>%
  head() %>%
  gt::gt() %>%
  gt::tab_header(title = "Cars n stuff", subtitle = "I don't know anything about cars") %>%
  DGThemes::gt_theme_duncan()

{width = 50%}

ggplot2::ggplot(tophitters2001, ggplot2::aes(hr, so)) +
  ggplot2::geom_point() +
  ggplot2::labs(
    x = "Home Runs", y = "Strikeouts",
    title = "Seminal ggplot2::ggplot2 scatterplot example",
    subtitle = "Home runs come at the cost of strikeouts",
    caption = "Data from the `tophitters2001` default set"
  ) +
  ggplot2::geom_text(ggplot2::aes(label = dplyr::if_else(hr > 50, name, NULL)),
    vjust = 1.2
  ) +
  DGThemes::theme_premium()

Roboto Condensed

ggplot2::ggplot(beaver1, ggplot2::aes(time, temp)) +
  ggplot2::geom_line() +
  ggplot2::labs(
    x = "Time (hm)", y = "Temperature (celsius)",
    title = "Beaver Temperature over Time",
    subtitle = "Beavers activity peaks at night, around 10 o'clock.",
    caption = "Data from the `beaver1` default set"
  ) +
  DGThemes::theme_premium_rc()

New FT Theme!

Seatbelts <- tibble::as_tibble(Seatbelts)
ggplot2::ggplot(Seatbelts, ggplot2::aes(DriversKilled, kms)) +
  ggplot2::geom_point(ggplot2::aes(color = factor(law))) +
  ggplot2::labs(
    x = "Number of Drivers Killed", y = "Distance Driven (kms)",
    title = "Always wear a seatbelt!",
    subtitle = "Deaths fall dramatically when there are laws in place that require seatbelts.",
    color = "Seatbelt\nRequirement",
    caption = "Data from the `Seatbelts` default set"
  ) +
  ggplot2::coord_flip() +
  DGThemes::scale_color_ft(labels = c("Not Mandatory", "Mandatory")) +
  DGThemes::theme_ft_rc()

IBM Plex Sans

HairEyeColor <- tibble::as_tibble(HairEyeColor)
ggplot2::ggplot(HairEyeColor) +
  ggplot2::geom_boxplot(ggplot2::aes(x = Eye, y = n, color = Sex)) +
  DGThemes::scale_color_premium() +
  DGThemes::scale_fill_premium() +
  ggplot2::facet_wrap(~Sex) +
  ggplot2::labs(
    title = "Eye Color in Males & Females",
    subtitle = "The distribution of eye color appears to be the exact same between males and females",
    caption = "Source: DGThemes & `HairEyeColor` default set"
  ) +
  DGThemes::theme_premium_ps(grid = "XY", axis = "xy") +
  ggplot2::theme(legend.position = "bottom") -> gg

gg

Titillium Web

ggplot2::ggplot(diamonds, ggplot2::aes(carat, price)) +
  ggplot2::geom_jitter(ggplot2::aes(color = clarity, fill = clarity), size = 3, shape = 21, alpha = 1 / 2) +
  ggplot2::scale_y_continuous(labels = scales::comma) +
  DGThemes::scale_color_premium() +
  DGThemes::scale_fill_premium() +
  ggplot2::facet_wrap(~clarity) +
  ggplot2::labs(
    title = "Titillium Web",
    subtitle = "This is a subtitle to see the how it looks in Titillium Web",
    caption = "Source: DGThemes & `Diamonds` default set"
  ) +
  DGThemes::theme_premium_tw(grid = "XY", axis = "xy") +
  ggplot2::theme(legend.position = "bottom")

Scales (Color/Fill)

ggplot2::ggplot(tophitters2001, ggplot2::aes(hr, so, color = lg)) +
  ggplot2::geom_point() +
  ggplot2::labs(
    x = "Home Runs", y = "Strikeouts",
    title = "Seminal ggplot2::ggplot2 scatterplot example",
    subtitle = "Home runs come at the cost of strikeouts",
    caption = "Data from the `tophitters2001` default set"
  ) +
  ggplot2::geom_text(ggplot2::aes(label = dplyr::if_else(hr > 50, name, NULL)),
    vjust = 1.2
  ) +
  DGThemes::scale_color_premium() +
  DGThemes::theme_premium() +
  ggplot2::theme(legend.position = "top")

Scales (Axis)

tophitters2001 %>%
  dplyr::mutate(count = sum(hr)) %>%
  dplyr::select(name, hr, count) %>%
  dplyr::summarise(
    pct = 100 * hr / sum(hr),
    name = name,
    hr = hr
  ) %>%
  dplyr::arrange(desc(pct)) %>%
  dplyr::slice(c(1:10)) %>%
  ggplot2::ggplot(ggplot2::aes(forcats::fct_reorder(name, pct), pct)) +
  ggplot2::geom_col() +
  ggplot2::geom_text(ggplot2::aes(label = paste0(hr, "\n(", round(pct, 2), "%)")), vjust = -0.8, color = "black") +
  DGThemes::scale_y_percent(scale = 1, limits = c(0, 3)) +
  ggplot2::labs(
    x = "Player", y = "Percent of home runs in season",
    title = "Barry Bonds ",
    subtitle = "And here's another hit, Barry Bonds",
    caption = "Data from the `mtcars` default set"
  ) +
  DGThemes::theme_premium(grid = "Y")


ggplot2::ggplot(uspopage, ggplot2::aes(x = Year, y = Thousands, fill = AgeGroup)) +
  ggplot2::geom_area() +
  DGThemes::scale_fill_premium() +
  ggplot2::scale_x_continuous(expand = c(0, 0)) +
  DGThemes::scale_y_comma() +
  ggplot2::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"
  ) +
  DGThemes::theme_premium_rc(grid = "XY") +
  ggplot2::theme(axis.text.x = element_text(hjust = c(0, 0.5, 0.5, 0.5, 1))) +
  ggplot2::theme(legend.position = "bottom")


DGThemes::update_geom_font_defaults(font_rc_light)

dplyr::count(mpg, class) %>%
  dplyr::mutate(n = n * 2000) %>%
  dplyr::arrange(n) %>%
  dplyr::mutate(class = factor(class, levels = class)) %>%
  ggplot2::ggplot(ggplot2::aes(class, n)) +
  ggplot2::geom_col() +
  ggplot2::geom_text(ggplot2::aes(label = scales::comma(n)), hjust = 0, nudge_y = 2000) +
  DGThemes::scale_y_comma(limits = c(0, 150000)) +
  ggplot2::coord_flip() +
  ggplot2::labs(
    x = "Fuel efficiency (mpg)", y = "Weight (tons)",
    title = "Seminal ggplot2::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'"
  ) +
  DGThemes::theme_premium_rc(grid = "X")

Spellcheck ggplot2::ggplot2 labels from hrbrthemes

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

ggplot2::ggplot(mtcars, ggplot2::aes(mpg, wt)) +
  ggplot2::geom_point() +
  ggplot2::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"
  ) +
  DGThemes::theme_premium_rc(grid = "XY") -> gg

hrbrthemes::gg_check(gg)

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

## Possible misspelled words in [subtitle]: (subtitley)

## Possible misspelled words in [caption]: (captien)

DGThemes Metrics

| Lang | # Files | (%) | LoC | (%) | Blank lines | (%) | # Lines | (%) | |:-----|---------:|-----:|-----:|-----:|------------:|-----:|---------:|-----:| | R | 26 | 0.41 | 1928 | 0.42 | 351 | 0.38 | 1192 | 0.43 | | Rmd | 2 | 0.03 | 164 | 0.04 | 102 | 0.11 | 173 | 0.06 | | SVG | 2 | 0.03 | 150 | 0.03 | 0 | 0.00 | 0 | 0.00 | | YAML | 2 | 0.03 | 52 | 0.01 | 7 | 0.01 | 6 | 0.00 | | SUM | 32 | 0.50 | 2294 | 0.50 | 460 | 0.50 | 1371 | 0.50 |

clock Package Metrics for DGThemes



dungates/DGThemes documentation built on Dec. 20, 2021, 2:14 a.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close