theme_spss.R

library(ggplot2)
theme_spss <- function(base_family = "Helvetica") {
    theme(text = element_text(family = base_family, face = "bold"),
          axis.ticks = element_line(colour = "black", size = 1),
          panel.background = element_rect(colour = "black",
                                          fill = "gray90", size = 1.5),
          panel.grid = element_blank(),
          aspect.ratio = 1)
}