『心理学研究』に準拠したggplot2のtheme

gistfile1.r

theme_JPR <- function(base_size = 12, base_family = ""){
  theme(
    line = element_line(colour = "black", size = 0.5, linetype = "solid", lineend = "butt"),
    rect = element_rect(fill = "white", colour = "black", size = 0.5, linetype = "solid"),
    text = element_text(family = base_family, face = "plain", colour = "black", size = base_size, hjust = 0.5, vjust = 0.5, angle = 0, lineheight = 0.9),
    axis.title.x = element_text(vjust = 0),
    axis.title.y = element_text(vjust = 0, angle = 90),
    axis.text = element_text(size = rel(1)),
    axis.text.x = element_text(vjust = 1),
    axis.text.y = element_text(hjust = 1),
    axis.ticks = element_line(size = 1),
    axis.ticks.length = unit(-0.2, "cm"),
    axis.ticks.margin = unit(0.4, "cm"),
    axis.line = element_line(colour = "#000000", size = 1, linetype = "solid", lineend = "round"),
    legend.background = element_rect(colour = NA),
    legend.margin = unit(0.2, "cm"),
    legend.key = element_rect(fill = NA, colour = NA),
    legend.key.size = unit(1.2, "lines"),
    legend.text = element_text(size = rel(0.8)),
    legend.title = element_blank(),
    legend.position = c(1, 1),
    legend.justification = c(1, 1),
    panel.background = element_rect(fill = "white", colour = NA),
    panel.border = element_blank(),
    panel.margin = unit(0.25, "lines"),
    panel.grid = element_blank(),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.grid.major.x = element_blank(),
    panel.grid.major.y = element_blank(),
    panel.grid.minor.x = element_blank(),
    panel.grid.minor.y = element_blank(),
    plot.background = element_rect(colour = "white"),
    plot.title = element_text(size = rel(1.2)),
    plot.margin = unit(c(1, 1, 1, 1), "lines"),
    strip.background = element_rect(fill = NA, colour = "black", size = 1),
    strip.text = element_text(size = rel(0.8)),
    strip.text.y = element_text(angle = -90),
    complete = TRUE)
}