R/cow_plot.R

In nephroj/medutils: Utilities for Medical Statistics

#' Creation of the cowplot object
#'
#' Creation of the cowplot object
#'
#' @param n a number of plots
#' @param ncol a number of columns
#' @param font_size font size
#' @param scale scale
#' @param rel_widths relative width of columns
#' @param uppercase uppercase
#' @param labels labels
#' @return cowplot obejct
#' @keywords cow_plot
#' @export
#'
cow_plot = function (n, ncol=n, font_size=10, scale=0.95, rel_widths=1, uppercase=T, labels=NULL) {
  text = paste0("g", 1:n)
  if(!is.null(labels)) {
    labels = labels
  } else if(uppercase==T) {
    labels = LETTERS[1:n]
  } else {
    labels = letters[1:n]
  }
  gg_list = list()
  for (t in text) {
    gg_list = c(gg_list, list(eval(parse(text=t))))
  }
  theme_set(theme_cowplot(font_size=font_size))
  plot_grid(plotlist=gg_list, labels=labels, ncol=ncol, scale=scale, rel_widths=rel_widths)
}