R/BoxPlot.R

In alexthiery/scHelper: R package containing helper functions for single cell analysis

#' Box Plot
#'
#' This function generates a box plot from a single cell metadata dataframe
#'
#' @param data df containing sample metadata (i.e. seurat@meta.data)
#' @param y_col dat column to place on y axis
#' @param group_by dat column to group cells by on x axis
#' @param y_lab label for y axis
#' @param x_lab label for x axis
#' @param rotated_labels boolean value to specify whether to rotate x axis labels
#' @return ggplot object
#' @export
BoxPlot <- function (data, y_col, group_by, y_lab, x_lab, rotated_labels = FALSE) 
{
  if (rotated_labels == TRUE){
    size = 12
    angle = 45
    hjust = 1
  } 
  else {
    size = 16
    angle = 0
    hjust = 0.5
  }
  ggplot(data, aes(x = .data[[group_by]], y = .data[[y_col]],
                   fill = .data[[group_by]])) + geom_boxplot() + xlab(x_lab) +
    ylab(y_lab) + theme(legend.position = "none", panel.grid.major = element_blank(),
                        panel.grid.minor = element_blank(), panel.background = element_blank(),
                        axis.line = element_line(colour = "black"), strip.background = element_rect(colour = "white",
                                                                                                    fill = "white"), strip.text = element_text(size = 18),
                        axis.text = element_text(size = size, angle = angle, hjust = hjust),
                        axis.title = element_text(size = 18))
}