styles

The goal of styles is to create and apply themes to base plots.

Installation

You can install styles from github with:

# install.packages("devtools")
devtools::install_github("ropenscilabs/styles")

Examples

Let's compare default plot arguments to a styles:

library(styles)
library(default)

plot_mat <- matrix(1:8, nrow = 2, byrow = FALSE)
layout(plot_mat)

# plot with plot defaults; without setting a style
example_plots()

# plot with a style
style(better)
example_plots()

You can preview internal styles:

plot_style(better)

You can create your own styles:

blue_stars <- new_style(par = list(pch = 8),
                  graphics = list(plot.xy = list(col = "navyblue")))
style(blue_stars)
plot(mpg ~ wt, data = mtcars)

Once we have a style we like, we can apply it to all of our plots:

blue_dot_grey <- new_style(par = list(pch = 20,
                                      cex=1.2,
                                      bty="l",
                                      col.axis = grey(0.4),
                                      col.lab = grey(0.4),
                                      fg = grey(0.4),
                                      mar=c(4,4,1,1)),
                           graphics = list(plot.xy = list(col = "navyblue")))

style(blue_dot_grey)

plot_mat <- matrix(1:4, nrow = 2, byrow = FALSE)
layout(plot_mat)
plot(mpg ~ wt, data = mtcars)
plot(mpg ~ disp, data = mtcars)
plot(mpg ~ hp, data = mtcars)
plot(mpg ~ drat, data = mtcars)