bruceR (version 0.6.0)

theme_bruce: A nice ggplot2 theme for scientific publication.

Description

A nice ggplot2 theme for scientific publication.

Usage

theme_bruce(
  base.size = 12,
  line.size = 0.5,
  border = "black",
  bg = "white",
  panel.bg = "white",
  tag = "bold",
  plot.title = "bold",
  axis.title = "plain",
  title.pos = 0.5,
  subtitle.pos = 0.5,
  caption.pos = 1,
  font = NULL,
  grid.x = "",
  grid.y = "",
  line.x = TRUE,
  line.y = TRUE,
  tick.x = TRUE,
  tick.y = TRUE
)

Arguments

base.size

Basic font size. Default is 12.

line.size

Line width. Default is 0.5.

border

TRUE, FALSE, or "black" (default).

bg

Background color of whole plot. Default is "white". You can use any colors or choose from some pre-set color palettes: "stata", "stata.grey", "solar", "wsj", "light", "dust".

To see these colors, you can type:

ggthemr::colour_plot(c(stata="#EAF2F3", stata.grey="#E8E8E8", solar="#FDF6E3", wsj="#F8F2E4", light="#F6F1EB", dust="#FAF7F2"))

panel.bg

Background color of panel. Default is "white".

tag

Font face of tag. Choose from "plain", "italic", "bold", "bold.italic".

plot.title

Font face of title. Choose from "plain", "italic", "bold", "bold.italic".

axis.title

Font face of axis text. Choose from "plain", "italic", "bold", "bold.italic".

title.pos

Title position (0~1).

subtitle.pos

Subtitle position (0~1).

caption.pos

Caption position (0~1).

font

Text font. Only applicable to Windows system.

grid.x

FALSE, "" (default), or a color (e.g., "grey90") to set the color of panel grid (x).

grid.y

FALSE, "" (default), or a color (e.g., "grey90") to set the color of panel grid (y).

line.x

TRUE (default) or FALSE. Whether to draw the x-axis line.

line.y

TRUE (default) or FALSE. Whether to draw the y-axis line.

tick.x

TRUE (default) or FALSE. Whether to draw the x-axis ticks.

tick.y

TRUE (default) or FALSE. Whether to draw the y-axis ticks.

Value

A theme object that should be used for ggplot2.

Examples

# NOT RUN {
## Example 1 (bivariate correlation)
d=as.data.table(bfi)
d[,":="(E=MEAN(d, "E", 1:5, rev=c(1,2), likert=1:6),
        O=MEAN(d, "O", 1:5, rev=c(2,5), likert=1:6))]
ggplot(data=d, aes(x=E, y=O)) +
  geom_point(alpha=0.1) +
  geom_smooth(method="loess") +
  labs(x="Extraversion", y="Openness") +
  theme_bruce()

## Example 2 (2x2 ANOVA)
d=data.frame(X1=factor(rep(1:3, each=2)),
             X2=factor(rep(1:2, 3)),
             Y.mean=c(5, 3, 2, 7, 3, 6),
             Y.se=rep(c(0.1, 0.2, 0.1), each=2))
ggplot(data=d, aes(x=X1, y=Y.mean, fill=X2)) +
  geom_bar(position="dodge", stat="identity", width=0.6, show.legend=FALSE) +
  geom_errorbar(aes(x=X1, ymin=Y.mean-Y.se, ymax=Y.mean+Y.se),
                width=0.1, color="black", position=position_dodge(0.6)) +
  scale_y_continuous(expand=expansion(add=0),
                     limits=c(0,8), breaks=0:8) +
  scale_fill_brewer(palette="Set1") +
  labs(x="Independent Variable", y="Dependent Variable", title="Demo") +
  theme_bruce(border="")

# }