leehazel/styles

themes for base plots

styles

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

Installation

You can install styles from github with:

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

Example

This is a basic example which shows you how to solve a common problem:

library(styles)

# plot with internal style
plot_mat <- matrix(1:8, nrow = 2, byrow = FALSE)
layout(plot_mat)

example_plots()

style(better)
example_plots()

remove_style()
par(mfrow=c(1,1))

# create a new style:
blue <- new_style(graphics = list(plot.xy = list(col = "navyblue")))
style(blue)
plot(mpg ~ wt, data = mtcars)

remove_style()

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

remove_style()

###

styles's Issues

don't export all functions

Some functions don't need to be exported and currently are

check_style() is empty

Write check_style function

assign a class to a style object in new_style()

write example in readme for simple modifications of default par

perhaps just change the colours and the pch

create print.style() function

to print out the arguments in internal styles

create plot.style() function

for plotting internal styles to see what they look like

get rid of bulk style definition in README example

replace with better style

create one internal style

from nick golding's gist and use to test plot.style() and print.style()

there are two remove_defaults function

Decide which one is functional, delete the other.

Error in default(fun) <- value : could not find function "default<-"

Hi,

I get the following errors when I try to run the example code.

> library(styles)
> # plot with internal style
> plot_mat <- matrix(1:8, nrow = 2, byrow = FALSE)
> layout(plot_mat)
> example_plots()
> style(better)
Error in default(fun) <- value : could not find function "default<-"
> example_plots()
> library(styles)
> # plot with internal style
> plot_mat <- matrix(1:8, nrow = 2, byrow = FALSE)
> layout(plot_mat)
> example_plots()
> style(better)
Error in reset_default(fun) : could not find function "reset_default"

I think this is just a symptom of those functions belonging to the default package so either the user has to do library(default) every time they use styles or the functions in the default package need to be imported by styles. I'll submit a PR with one possible fix (adding default:: to every function call).

Thanks,
Matthew

add L box to bar plot in better