theme_jota: A ggplot2 theme with opinionated aesthetics for <URL:...

In JOTAJornalismo/rJOTA: Functions and aesthetic styles used for displaying data at <https://jota.info>

Description

This theme uses 'Roboto Regular' as the default typoghraphy and dashed line for grid plot.

Usage

theme_jota(
  base_family = "Roboto Regular",
  base_size = 13,
  plot_title_family = "Roboto Bold",
  plot_title_size = 20,
  plot_title_face = "bold",
  plot_title_margin = 10,
  subtitle_family = if (.Platform$OS.type == "windows") "Roboto Regular" else "Arial",
  subtitle_size = 16,
  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 Regular" else "Arial",
  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(15, 5, 3, 5),
  grid_col = "#A9A9A9",
  grid = TRUE,
  axis_col = "#404040",
  axis = FALSE,
  ticks = FALSE,
  panel_col = FALSE
)

Arguments

base_family, base_size	base font family and size
plot_title_family, plot_title_face, plot_title_size, plot_title_margin	plot tilte family, face, size and margin
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_text_size	font size of axis text
axis_title_family, axis_title_face, axis_title_size	axis title font family, face and size
axis_title_just	axis title font justificationk one of [blmcrt]
plot_margin	plot margin (specify with ggplot2::margin)
grid_col	grid color
grid	panel grid (TRUE, FALSE, or a combination of X, x, Y, y)
axis_col	axis color
axis	add x or y axes? TRUE, FALSE, "xy"
ticks	ticks if TRUE add ticks
panel_col	plot background color, if FALSE background color is "white".

Details

Notice: You should import_roboto first and also install the fonts on your system before trying to use this theme.

There is an option jotaR.loadfonts which – if set to TRUE – will call extrafont::loadfonts() to register non-core fonts with R PDF & PostScript devices. If you are running under Windows, the package calls the same function to register non-core fonts with the Windows graphics device.

Why Roboto?

It's free and has tolerable kerning pairs and multiple weights.

See Also

Other themes: theme_horizontal()

Examples

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

ggplot(Governismo, aes(x=D1, y=D2)) +
  geom_point() +
  labs(x="IDEOLOGIA (D1)", y="POSICIONAMENTO ECONÔMICO (D2)",
       title="Um exemplo de scatterplot",
       subtitle="Apoio ao texto da Reforma: Threshold 80% a 20%",
      caption="Fonte: https://jota.info") +
  theme_jota(grid=FALSE)


# seminal bar chart

group_by(Governismo, Reeleito) %>%
 summarize(Indice = mean(Indice, na.rm=TRUE)) %>%
 mutate(Reeleito = ifelse(Reeleito==1, "Reeleito", "Novato")) %>%
 ggplot(aes(x=Reeleito, y=Indice)) +
 geom_col() +
 geom_text(aes(label=round(100*Indice,1)), nudge_y=.02) +
 labs(x="Status do parlamentar (Reeleitos vs Novatos)", y="Governismo (Indice)",
      title="Um exemplo de gráfico de barras",
      subtitle="Novatos compõem a principal força de apoio ao governo",
      caption="Fonte: https://jota.info") +
 theme_jota(grid="Y") +
 theme(axis.text.y=element_blank())




 #' group_by(Governismo, Reeleito) %>%
 summarize(Indice = mean(Indice, na.rm=TRUE)) %>%
 mutate(Reeleito = ifelse(Reeleito==1, "Reeleito", "Novato")) %>%
 ggplot(aes(x=Reeleito, y=Indice)) +
 geom_col() +
 geom_text(aes(label=round(100*Indice,1)), nudge_y=.02) +
 labs(x="Status do parlamentar (Reeleitos vs Novatos)", y="Governismo (Indice)",
      title="Um exemplo de gráfico de barras",
      subtitle="Novatos compõem a principal força de apoio ao governo",
      caption="Fonte: https://jota.info") +
 theme_jota(grid="Y", intercept = "Y") +
 theme(axis.text.y=element_blank())

## End(Not run)

JOTAJornalismo/rJOTA documentation built on Oct. 2, 2020, 4:40 p.m.