A nice theme for ggplots

theme_Nice.R

theme_Nice <-
  function(base_size = 14,
           base_family = "Helvetica",
           angled = TRUE,
           show_legend = TRUE,
           axis_text_size = 14) {
    return(
      theme_bw(base_size = base_size, base_family = base_family)
      + theme(
        axis.text.x = element_text(
          angle = ifelse(angled, 45, 0),
          hjust = ifelse(angled, 1, 0.5),
          colour = "black",
          size = axis_text_size
        ),
      axis.text.y = element_text(colour = "black", size = axis_text_size),
      axis.line = element_line(colour = "black"),
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      panel.border = element_blank(),
      panel.background = element_blank(),
      legend.position = ifelse(show_legend, "right", "none"),
      legend.text = element_text(colour='black', size=14),
      strip.background = element_blank(),
      strip.text = element_text(colour = "black", size = 14)
    )
    )
  }