R/scale_y_log2nice.R

In ctriandafillou/cat.extras:

#' Scientific log2 scale for y
#'
#' Creates a nice log 2 scale for plots (goes with scales package and ggplot2).
#'
#' @examples ggplot(dat, aes(...)) + scale_y_log2nice()
#' @export

scale_y_log2nice <- function(name=waiver(),omag=seq(-10,20),...) {
    breaks2 <- 2^omag
    scale_y_log10(name,breaks=breaks2,labels = return_log2_labels(omag),...)
}