https://github.com/nsgrantham/ggdark

Dark mode for ggplot2 themes
https://github.com/nsgrantham/ggdark

darkmode ggplot2 ggplot2-themes r tidyverse visualization

Last synced: 3 months ago
JSON representation

Dark mode for ggplot2 themes

• Host: GitHub
• URL: https://github.com/nsgrantham/ggdark
• Owner: nsgrantham
• License: other
• Created: 2018-09-18T15:35:43.000Z (about 6 years ago)
• Default Branch: master
• Last Pushed: 2019-10-10T21:02:53.000Z (about 5 years ago)
• Last Synced: 2024-07-17T06:41:55.501Z (4 months ago)
• Topics: darkmode, ggplot2, ggplot2-themes, r, tidyverse, visualization
• Language: R
• Homepage:
• Size: 2.67 MB
• Stars: 194
• Watchers: 10
• Forks: 9
• Open Issues: 4
• Metadata Files:
  • Readme: README.Rmd
  • License: LICENSE

Awesome Lists containing this project

README

        
---

output: github_document

---

```{r, echo = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

  fig.path = "README-"

)

```

# ggdark

[![Travis-CI Build Status](https://travis-ci.org/nsgrantham/ggdark.svg?branch=master)](https://travis-ci.org/nsgrantham/ggdark)

[![AppVeyor Build Status](https://ci.appveyor.com/api/projects/status/github/nsgrantham/ggdark?branch=master&svg=true)](https://ci.appveyor.com/project/nsgrantham/ggdark)

## Installation

You can install ggdark from CRAN with:

```{r cran-installation, eval = FALSE}

install.packages("ggdark")

```

If you want the development version, you can install ggdark from GitHub with:

```{r gh-installation, eval = FALSE}

# install.packages("devtools")

devtools::install_github("nsgrantham/ggdark")

```

## Dark mode for ggplot2

```{r gray, fig.path="man/figures/"}

library(ggplot2)

p <- ggplot(diamonds) + 

  geom_point(aes(carat, price, color = cut)) + 

  scale_y_continuous(label = scales::dollar) +

  guides(color = guide_legend(reverse = TRUE)) +

  labs(title = "Prices of 50,000 round cut diamonds by carat and cut",

       x = "Weight (carats)",

       y = "Price in US dollars",

       color = "Quality of the cut")

p + theme_gray()  # ggplot default

```

```{r dark-gray, fig.path="man/figures/"}

library(ggdark)

p + dark_theme_gray()  # the dark version

```

```{r add-element, fig.path="man/figures/"}

# modify the theme to your liking, as you would in ggplot2

p + dark_theme_gray(base_family = "Fira Sans Condensed Light", base_size = 14) + 

  theme(plot.title = element_text(family = "Fira Sans Condensed"),

        plot.background = element_rect(fill = "grey10"),

        panel.background = element_blank(),

        panel.grid.major = element_line(color = "grey30", size = 0.2),

        panel.grid.minor = element_line(color = "grey30", size = 0.2),

        legend.background = element_blank(),

        axis.ticks = element_blank(),

        legend.key = element_blank(),

        legend.position = c(0.815, 0.27))

```

## Dark themes

ggdark provides dark versions of all themes available in ggplot2:

```{r mtcars, fig.path="man/figures/"}

mtcars2 <- within(mtcars, {

  vs <- factor(vs, labels = c("V-shaped", "Straight"))

  am <- factor(am, labels = c("Automatic", "Manual"))

  cyl  <- factor(cyl)

  gear <- factor(gear)

})

p <- ggplot(mtcars2) +

  geom_point(aes(wt, mpg, color = gear)) +

  facet_grid(vs ~ am) +

  labs(title = "Fuel economy declines as weight increases",

       subtitle = "(1973-74)",

       caption = "Data from the 1974 Motor Trend US magazine.",

       x = "Weight (1000 lbs)",

       y = "Fuel economy (mpg)",

       color = "Gears")

```

```{r all-themes, fig.path="man/figures/"}

p + dark_theme_gray()

p + dark_theme_bw()

p + dark_theme_linedraw()

p + dark_theme_light()  # quite dark

p + dark_theme_dark()  # quite light

p + dark_theme_minimal()

p + dark_theme_classic()

p + dark_theme_void()

```

## Make your own dark theme

Use`dark_mode` on any theme to create its dark version.

```{r gapminder, fig.path="man/figures/"}

invert_geom_defaults()  # change geom defaults back to black

library(gapminder)

p <- ggplot(subset(gapminder, continent != "Oceania")) +

  geom_line(aes(year, lifeExp, group = country, color = country), lwd = 1, show.legend = FALSE) + 

  facet_wrap(~ continent) +

  scale_color_manual(values = country_colors) +

  labs(title = "Life expectancy has increased worldwide")

```

```{r fivethirtyeight, fig.path="man/figures/"}

# install.packages("ggthemes")

library(ggthemes)

p + theme_fivethirtyeight()

```

```{r dark-fivethirtyeight, fig.path="man/figures/"}

p + dark_mode(theme_fivethirtyeight())

```

```{r reset-defaults}

invert_geom_defaults()  # leave the geom defaults how you found them!

```

Happy plotting! 🖤