theme_flex: A Flex Theme

Description Usage Arguments Value Examples

Description

The SciencesPo flex theme for using with ggplot2 objects.

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
theme_flex(base_family = "sans", base_size = 11,
  plot_title_family = base_family, plot_title_size = 18,
  plot_title_face = "bold", plot_title_margin = 10,
  subtitle_family = base_family, subtitle_size = 12,
  subtitle_face = "plain", subtitle_margin = 15,
  strip_text_family = base_family, strip_text_size = 12,
  strip_text_face = "plain", caption_family = base_family,
  caption_size = 9, caption_face = "italic", caption_margin = 10,
  axis_title_family = subtitle_family, axis_title_size = 9,
  axis_title_face = "plain", axis_title_just = "rt",
  plot_background = TRUE, plot_margin = margin(10, 10, 10, 10),
  grid = TRUE, axis = FALSE, axis_size = 0.15, ticks = FALSE)

Arguments

base_family, base_size

base font family and size

plot_title_family, plot_title_face, plot_title_size, plot_title_margin

plot title family, face, size and margi

subtitle_family, subtitle_face, subtitle_size

plot subtitle family, face and size

subtitle_margin

plot subtitle margin bottom (single numeric value)

strip_text_family, strip_text_face, strip_text_size

facet label font family, face and size

caption_family, caption_face, caption_size, caption_margin

plot caption family, face, size and margin

axis_title_family, axis_title_face, axis_title_size

axis title font family, face and size

axis_title_just

axis title font justification, one of '[blmcrt]'

plot_margin

plot margin (specify with [ggplot2::margin])

grid

panel grid (TRUE, FALSE, or a combination of X, x, Y, y)

axis

axis TRUE, FALSE, [xy]

ticks

ticks if 'TRUE' add ticks

Value

The theme.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
# plot with small amount of padding
qplot(1:10, (1:10)^2) +
 theme_flex(grid="Y")

qplot(1:10, (1:10)^2) +
theme_flex(axis='xy', axis_size=.75)

# Check that it is a complete theme
# attr(theme_flex(), "complete")

## Not run: 
library(ggplot2)
library(dplyr)

# seminal scatterplot
ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  labs(x="Fuel effiiency (mpg)", y="Weight (tons)",
       title="Seminal ggplot2 scatterplot example",
       subtitle="A plot that is only useful for demonstration purposes",
       caption="Brought to you by the letter 'g'") +
  theme_flex() +
  scale_color_flex()

# seminal bar chart

update_geom_font_defaults()

count(mpg, class) %>%
  ggplot(aes(class, n)) +
  geom_col() +
  geom_text(aes(label=n), nudge_y=3) +
  labs(x="Fuel efficiency (mpg)", y="Weight (tons)",
       title="Seminal ggplot2 bar chart example",
       subtitle="A plot that is only useful for demonstration purposes",
       caption="Brought to you by the letter 'g'") +
  theme_flex(grid="Y") +
  theme(axis.text.y=element_blank()) +
  scale_color_flex()


count(mpg, class) %>%
mutate(n=n*2000) %>%
arrange(n) %>%
mutate(class=factor(class, levels=class)) %>%
ggplot(aes(class, n)) +
geom_col() +
geom_text(aes(label = scales::comma(n)), hjust=0, nudge_y=2000) +
scale_y_comma(limits=c(0,150000)) +
coord_flip() +
labs(x = "Fuel effiiency (mpg)", y = "Weight (tons)",
   title="Seminal ggplot2 column chart example with commas",
   subtitle="A plot that is only useful for demonstration purposes,
   esp since you'd never\nreally want direct labels and axis labels",
   caption="Brought to you by the letter 'g'") +
theme_flex(grid="X")



ggplot(brpopage, aes(x=Year, y=Thousands, fill=AgeGroup)) +
geom_area() +
scale_fill_flex("colorblind") +
scale_x_continuous(expand=c(0,0)) +
scale_y_comma() +
labs(title="Age distribution of population in Brazil, 1900-2010",
   subtitle="Example data from the R SciencesPo Cookbook",
      caption="Source: SciencesPo Cookbook") +
 theme_flex(grid="XY") +
 theme(axis.text.x=element_text(hjust=c(0, 0.5, 0.5, 0.5, 1))) +
 theme(legend.position="bottom")

## End(Not run)

danielmarcelino/SciencesPo documentation built on Oct. 20, 2019, 1:15 a.m.