In emhedlin/sevenR: sevenshifts utilities

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

sevenR

Installation

You can install the development version of sevenR from GitHub with:

# install.packages("devtools")
devtools::install_github("emhedlin/sevenR")

Example

The package is mostly composed of utility functions related to plotting (7shifts colours, etc.), and a few other miscellanious functions.

library(ggplot2)
library(sevenR)

ggplot() +
geom_point(aes(rnorm(500, 0, 1), rnorm(500, 0, 1)), colour = tangerine3) +
geom_point(aes(rnorm(500, 0, 3), rnorm(500, 0, 3)), colour = tangerine5) +
geom_point(aes(rnorm(500, 0, 5), rnorm(500, 0, 5)), colour = tangerine7) +
xlab("") + ylab("") +
seven_theme()

library(patchwork)
library(tidyverse)
library(sevenR)
library(showtext)
font_add_google("Roboto", "Roboto")
font_add_google("Roboto Mono", "rob_mono")
showtext_auto()

p1 <- ggplot() +
geom_point(aes(rnorm(100, 0, 1), rnorm(100, 0, 1)), colour = banana3, size = 0.6) +
geom_point(aes(rnorm(100, 0, 3), rnorm(100, 0, 3)), colour = banana5, size = 0.6) +
geom_point(aes(rnorm(100, 0, 5), rnorm(100, 0, 5)), colour = banana7, size = 0.6) +
labs(subtitle = "seven_theme()", family = "rob_mono")  + xlab("") + ylab("") + 
seven_theme()

p2 <- ggplot() +
geom_point(aes(rnorm(100, 0, 1), rnorm(100, 0, 1)), colour = eggplant3, size = 0.6) +
geom_point(aes(rnorm(100, 0, 3), rnorm(100, 0, 3)), colour = eggplant5, size = 0.6) +
geom_point(aes(rnorm(100, 0, 5), rnorm(100, 0, 5)), colour = eggplant7, size = 0.6) +
labs(subtitle = "seven_grid()", family = "rob_mono") + xlab("") + ylab("") +
seven_grid()

p3 <- ggplot() +
geom_point(aes(rnorm(100, 0, 1), rnorm(100, 0, 1)), colour = radish3, size = 0.6) +
geom_point(aes(rnorm(100, 0, 3), rnorm(100, 0, 3)), colour = radish5, size = 0.6) +
geom_point(aes(rnorm(100, 0, 5), rnorm(100, 0, 5)), colour = radish7, size = 0.6) +
labs(subtitle = "seven_nox()", family = "rob_mono") + xlab("") + ylab("") +
seven_nox()

p4 <- ggplot() +
geom_point(aes(rnorm(100, 0, 1), rnorm(100, 0, 1)), colour = blueberry3, size = 0.6) +
geom_point(aes(rnorm(100, 0, 3), rnorm(100, 0, 3)), colour = blueberry5, size = 0.6) +
geom_point(aes(rnorm(100, 0, 5), rnorm(100, 0, 5)), colour = blueberry7, size = 0.6) +
labs(subtitle = "seven_noy()", family = "rob_mono") + xlab("") + ylab("") +
seven_noy()

p5 <- ggplot() +
geom_point(aes(rnorm(100, 0, 1), rnorm(100, 0, 1)), colour = tangerine3, size = 0.6) +
geom_point(aes(rnorm(100, 0, 3), rnorm(100, 0, 3)), colour = tangerine5, size = 0.6) +
geom_point(aes(rnorm(100, 0, 5), rnorm(100, 0, 5)), colour = tangerine7, size = 0.6) +
labs(subtitle = "seven_bare()", family = "rob_mono") + xlab("") + ylab("") +
seven_bare()

p6 <- tibble(
  x = rnorm(500, 0, 1),
  y = rnorm(500, 0, 1),
  x2 = rnorm(500, 0, 1),
  y2 = rnorm(500, 0, 1),
  x3 = rnorm(500, 0, 1),
  y3 = rnorm(500, 0, 1),
  group = sample(c("group 1", "group 2", "group 3"), 500, replace = TRUE)
) %>%
ggplot() +
geom_point(aes(x, y), colour = grey3, size = 0.6) +
geom_point(aes(x2, y2), colour = grey5, size = 0.6) +
geom_point(aes(x3, y3), colour = grey7, size = 0.6) +
facet_grid(group ~ ., scales = "free") +
labs(subtitle = "seven_facet()", family = "rob_mono") + xlab("") + ylab("") +
seven_theme() + seven_facet()

(p1 / p2 / p5) | p6 | (p4 / p3)