R ladies theme.R

## This is the R ladies theme

r_ladies_theme <- function(){
  theme_bw() %+replace% 
    theme(text = element_text(family = "HelveticaNeue", face = "plain",
                              colour = 'black', size = 20,
                              hjust = .5, vjust = .5, angle = 0, 
                              lineheight = 1.1, 
                              margin = margin(t = 0, r = 0, b = 0, l = 0, 
                                              unit = "pt"), 
                              debug= FALSE), 
          axis.text = element_text(colour = "#181818"), 
          axis.title = element_text(face = "bold", colour = "#88398A", size = rel(1.1)), 
          plot.title = element_text(face = "bold", size = rel(1.4), 
                                    colour = "#88398A", 
                                    margin = margin(t = 0, r = 0, b = 6.6,
                                                    l = 0, unit = "pt")),
          legend.title = element_text(face = "bold", colour = "#181818"),
          legend.position = "top",
          panel.grid.major = element_line(color = "#D3D3D3"))
}