R/auto_mfrow.R

In mariosandovalmx/tlamatini: Tlamatini: Funciones utiles para biologxs y ecologxs confundidos con los modelos lineales

#' Funcion para auto mfrow tomada de la paqueteria mjcgraphics
#' @description automaticamente elige cuantas columnas y filas se usaran para
#' mostrar las graficas \code{par(mfrow)}. creada por Mark Cowley, 3 June 2006
#' @param nplots an integer in 1 to 49
#' @param setup if \code{TRUE}, then the graphical parameters (par) is set-up if
#'   \code{FALSE}, and nplots < the number of spaces for plots in the device, then
#' @param par par
#'   blank plots are added to fill in the unused spaces.
#' @keywords internal
#' @export
#' @importFrom graphics par
#'
auto_mfrow <- function(nplots, setup=TRUE) {

  if(setup) {
    if(nplots <= 3) par(mfrow=c(1, nplots))
    else if(nplots <= 4)  par(mfrow=c(2,2))
    else if(nplots <= 6)  par(mfrow=c(2,3))
    else if(nplots <= 9)  par(mfrow=c(3,3))
    else if(nplots <= 12) par(mfrow=c(3,4))
    else if(nplots <= 16) par(mfrow=c(4,4))
    else if(nplots <= 20) par(mfrow=c(4,5))
    else if(nplots <= 25) par(mfrow=c(5,5))
    else if(nplots <= 30) par(mfrow=c(5,6))
    else if(nplots <= 36) par(mfrow=c(6,6))
    else if(nplots <= 42) par(mfrow=c(6,7))
    else if(nplots <= 49) par(mfrow=c(7,7))
    else if(nplots <= 56) par(mfrow=c(7,8))
    else if(nplots <= 64) par(mfrow=c(8,8))
    else {
      stop("Son muchas graficas.")
    }
  }
  else {
    nblankplots <- par("mfrow")[1] * par("mfrow")[2] - nplots
    if(nblankplots > 0)
      for(i in 1:nblankplots)
        plot_blank()
  }
}