R/theme-matrix.R

In houyunhuang/ggtriangle: Fast processing of matrix heatmap

#' Create the default ggmatrix theme
#' @details The theme_matrix, with no axis title, no background, no grid,
#'     made some adjustments to the x-axis label.
#' @param ... extra params passing to \code{\link[ggplot2]{theme}}.
#' @return The theme.
#' @importFrom ggplot2 theme element_text element_blank element_rect element_line
#' @rdname theme_matrix
#' @export
theme_matrix <- function(...)
{
  theme(
    axis.text = element_text(size = 10.5, colour = "black"),
    axis.title = element_blank(),
    axis.line = element_blank(),
    axis.text.x.top = element_text(angle = 45, hjust = 0, vjust = 0),
    axis.text.x.bottom = element_text(angle = 45, hjust = 1, vjust = 1),
    panel.grid = element_blank(),
    panel.background = element_rect(fill = NA),
    ...
  )
}
#' @importFrom ggplot2 theme element_text element_blank
#' @rdname theme_matrix
#' @export
theme_matrix2 <- function(...)
{
  theme(
    axis.text = element_text(size = 10.5, colour = "black"),
    axis.title = element_blank(),
    axis.line = element_blank(),
    axis.text.x.top = element_text(angle = 45, hjust = 0, vjust = 0),
    axis.text.x.bottom = element_text(angle = 45, hjust = 1, vjust = 1),
    ...
  )
}