R/theme_nothing.R

In sjmgarnier/graphZoo: Graph formating functions for graphzoo.tumblr.com.

theme_nothing <- function(base_size = 12, legend = FALSE) {
  if (legend) {
    return(ggplot2::theme(axis.text = ggplot2::element_blank(), 
                 axis.title = ggplot2::element_blank(), 
                 panel.background = ggplot2::element_blank(), 
                 panel.grid.major = ggplot2::element_blank(), 
                 panel.grid.minor = ggplot2::element_blank(), 
                 axis.ticks.length = grid::unit(0, "cm"), 
                 axis.text = ggplot2::element_text(margin = grid::unit(0.01, "cm")),
                 panel.margin = grid::unit(0, "lines"), 
                 plot.margin = grid::unit(c(0, 0, 0, 0), "lines"), 
                 complete = TRUE))
  }
  else {
    return(ggplot2::theme(line = ggplot2::element_blank(), 
                 rect = ggplot2::element_blank(), 
                 text = ggplot2::element_blank(), 
                 axis.ticks.length = grid::unit(0, "cm"), 
                 axis.text = ggplot2::element_text(margin = grid::unit(0.01, "cm")),
                 legend.position = "none", 
                 panel.margin = grid::unit(0, "lines"), 
                 plot.margin = grid::unit(c(0, 0, 0, 0), "lines"), 
                 complete = TRUE))
  }
}