R/graphics_themes_GetScaleY.R

In sysbiosig/SCRC: Fractional response analysis

getScaleY.SCRC <-
  function(
    ylab,
    ylimits = NULL,
    ... ){

    if(!is.null(ylimits)){
      return(ggplot2::scale_y_continuous(
        name = ylab,
        limits = ylimits
      ))
    } else {
      return(ggplot2::scale_y_continuous(
        name = ylab
      ))
    }

  }



getScaleY.SCRCComparison <-
  function(
    scaleY.a,
    scaleY.b,
    ylimits,
    ybreaks = NULL,
    ylab,
    ylab.right,
    digits = 2,
    ...
  ){

    if(is.null(ybreaks)){
      ybreaks <-
        seq(from = floor(ylimits[1]),
            to =   floor(ylimits[2]),
            by = 1)
    }
    a <- scaleY.a
    b <- scaleY.b
    if(scaleY.a != 0){
    ggplot2::scale_y_continuous(
      sec.axis =
        eval(substitute(expr =
                          ggplot2::sec_axis(trans = ~ (.-bb)/aa,
                                            name = ylab.right,
                                            breaks = (ybreaks-b)/a,
                                            labels = round((ybreaks-b)/a,
                                                           digits = digits)),
                        #rep("", times= length(round((graphics.args.waves$ybreaks-b)/a)))),
                        list(aa = a,
                             bb = b))),
      breaks = ybreaks,
      limits = ylimits)
    } else {
      ggplot2::scale_y_continuous(
        sec.axis =
          eval(substitute(expr =
                            ggplot2::sec_axis(trans = ~ (.-bb),
                                              name = ylab.right,
                                              breaks = (ybreaks-b),
                                              labels = round((ybreaks-b),
                                                             digits = digits)),
                          #rep("", times= length(round((graphics.args.waves$ybreaks-b)/a)))),
                          list(aa = a,
                               bb = b))),
        breaks = ybreaks,
        limits = ylimits)
    }
  }