R/base_theme.R

In metrumresearchgroup/PKPDmisc: Pharmacokinetic and Pharmacodynamic Data Management Functions

#' A theme with better default values for pharmacometric plots, especially conc-time
#' @param legend_text size of legend text
#' @param legend_title legend title
#' @param axis_title_x size of X axis title
#' @param axis_title_y size of Y axis title
#' @param axis_text_x size of X axis text
#' @param axis_text_y size of Y axis text
#' @param strip_text_x size of strip text for X axis
#' @param strip_text_y size of strip text for Y axis
#' @export
base_theme <- function(legend_text= 10,
                           legend_title = 12,
                           axis_title_x = 12,
                           axis_title_y = axis_title_x,
                           axis_text_x = 10,
                           axis_text_y = axis_text_x,
                           strip_text_x = 12,
                           strip_text_y = strip_text_x
                           ) {
                           ggplot2::theme(legend.text = ggplot2::element_text(size = legend_text),
                                 legend.title = ggplot2::element_text(size = legend_title),
                                 axis.title.x = ggplot2::element_text(size = axis_title_x, face = "bold"),
                                 axis.title.y = ggplot2::element_text(size = axis_title_y, face = "bold"),
                                 axis.text.x = ggplot2::element_text(color = "black", size = axis_text_x),
                                 axis.text.y = ggplot2::element_text(color = "black", size = axis_text_y),
                                 strip.text.x = ggplot2::element_text(color = "black", size = strip_text_x, face = "bold"),
                                 strip.text.y = ggplot2::element_text(color = "black", size = strip_text_y, face = "bold")
                               )
}