theme_si: Source Intellligence Flavored Visualizations

Description Usage Arguments Value Examples

View source: R/theme_si.R

Description

Source Intellligence Flavored Visualizations

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
theme_si(base_family = "Roboto Condensed", base_size = 11.5,
  plot_title_family = base_family, plot_title_size = 18,
  plot_title_face = "bold", plot_title_margin = 10, subtitle_family = if
  (.Platform$OS.type == "windows") "Roboto Condensed" else
  "Roboto Condensed Light", subtitle_size = 13, subtitle_face = "plain",
  subtitle_margin = 15, strip_text_family = base_family,
  strip_text_size = 12, strip_text_face = "plain", caption_family = if
  (.Platform$OS.type == "windows") "Roboto Condensed" else
  "Roboto Condensed Light", caption_size = 9, caption_face = "plain",
  caption_margin = 10, axis_text_size = base_size,
  axis_title_family = base_family, axis_title_size = 9,
  axis_title_face = "plain", axis_title_just = "rt",
  plot_margin = margin(30, 30, 30, 30), grid_col = "#cccccc", grid = TRUE,
  axis_col = "#cccccc", axis = FALSE, ticks = FALSE)

Arguments

ticks

Value

add to plot to stay on brand

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
set.seed(1234)
dat <- data.frame(cond = factor(rep(c("A","B"), each=200)), rating = c(rnorm(200),rnorm(200, mean=.8)))

ggplot(dat, aes(x=cond, y=rating)) +
 geom_boxplot(fill = "steelblue") +
 theme_si() +
  labs(title = "SI Boxplot")

dat <- data.frame(
sex = factor(c("Female","Female","Male","Male")),
time = factor(c("Lunch","Dinner","Lunch","Dinner"), levels=c("Lunch","Dinner")),
total_bill = c(13.53, 16.81, 16.24, 17.42)
)

ggplot(data=dat, aes(x=time, y=total_bill, fill=sex)) +
  scale_fill_manual(values = c("grey", "steelblue")) +
  geom_bar(stat="identity", position=position_dodge()) +
  theme_si() +
  labs(title = "SI Barchart", caption = "Source Intelligence")

ggplot(data = diamonds, aes(x = log(x), y = price)) +
 geom_point(aes(color = clarity), alpha = 0.4) +
 facet_grid(cut ~ .) +
 theme_si() +
 labs(title = "SI Points", caption = "Source Intelligence")

elessert760/sir documentation built on March 19, 2018, 3:11 a.m.