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),
        plot.title = element_text(size=14, hjust=0.5)
      )
    )
  }

(updated to make title centered and same font size)