R/muscle_color_map.R

In Middleton-Lab/MuscleTernary: Plot Muscle Resultants in Ternary Space

#' Holliday Lab Muscle Color Map
#'
#' This function returns a \code{scale_color_manual()} that matches
#' the Holliday lab muscle color map.
#'
#' @return A \code{scale_color_manual()} that can be added to a
#'   ggplot
#'
#' @export
#'
muscle_color_map <- function(){

  cmap <- ggplot2::scale_color_manual(
    name = "Muscle",
    values = c("mAMES" = "#0000FF",
               "mAMEM" = "#55FFFF",
               "mAMEP" = "#8080FF",
               "mAMP" = "#00FF00",
               "mPSTs" = "#FF80FF",
               "mPSTp" = "#400080",
               "mPTd" = "#FF8000",
               "mPTv" = "#FF0000",
               "mPPt" = "#FFC0CB",
               "mDM" = "#FF0080",
               "mLPt" = "#09C4A8",
               "mEM" = "#FFFF00",
               "mPM" = "#7DB7E6"))

  return(cmap)
}

#' Holliday Lab Muscle Color Map
#'
#' This function returns a \code{scale_fill_manual()} that matches
#' the Holliday lab muscle color map.
#'
#' @return A \code{scale_fill_manual()} that can be added to a
#'   ggplot
#'
#' @export
#'
muscle_fill_map <- function(){

  cmap <- ggplot2::scale_fill_manual(
    name = "Muscle",
    values = c("mAMES" = "#0000FF",
               "mAMEM" = "#55FFFF",
               "mAMEP" = "#8080FF",
               "mAMP" = "#00FF00",
               "mPSTs" = "#FF80FF",
               "mPSTp" = "#400080",
               "mPTd" = "#FF8000",
               "mPTv" = "#FF0000",
               "mPPt" = "#FFC0CB",
               "mDM" = "#FF0080",
               "mLPt" = "#09C4A8",
               "mEM" = "#FFFF00",
               "mPM" = "#7DB7E6"))

  return(cmap)
}