R/util-mytheme.R

In wlandau/fbseqStudies: fbseqStudies

#' @title Function \code{mytheme}
#' @description ggplot2 theme
#' @export
#' @return ggplot2 theme
mytheme = function(){
  theme(axis.text.x = element_text(family = "Helvetica", colour = 'black', angle = -80, hjust = 0),
                  panel.background = element_rect(fill='white'),
                  panel.border = element_rect(color="black", fill = NA),
                  panel.grid.major = element_line(color="lightgray"),
                  text = element_text(family = "Helvetica", colour= "black"))
}

#' @title Function \code{mytheme_straight}
#' @description ggplot2 theme
#' @export
#' @return ggplot2 theme
mytheme_straight = function(){
  theme(axis.text.x = element_text(family = "Helvetica", colour = 'black'),
                  panel.background = element_rect(fill='white'),
                  panel.border = element_rect(color="black", fill = NA),
                  panel.grid.major = element_line(color="lightgray"),
                  text = element_text(family = "Helvetica", colour= "black"))
}

#' @title Function \code{mytheme_pub}
#' @description ggplot2 theme
#' @export
#' @return ggplot2 theme
mytheme_pub = function(){
  theme_few() + 
  theme(
    axis.ticks = element_line(color = "black"), 
    panel.border = element_rect(color = "black", size = 1.2),
    strip.text = element_text(size = 16), 
    axis.title = element_text(size = 16),
    axis.text = element_text(size = 12),
    legend.text = element_text(size = 14), 
    legend.title = element_text(size = 16),
    axis.title.x = element_text(margin = margin(t = 15)),
    axis.title.y = element_text(margin = margin(r = 15))
  )
}