Absorbance axis labels

Generate cps axis labels in SI units, using SI scale factors. Output can be selected as character, expression (R default devices) or LaTeX (for tikz device).

Usage

A_label(
  unit.exponent = 0,
  format = getOption("photobiology.math", default = "R.expression"),
  label.text = NULL,
  scaled = FALSE,
  normalized = FALSE,
  axis.symbols = getOption("ggspectra.axis.symbols", default = TRUE),
  Tfr.type
)

A_internal_label(
  unit.exponent = 0,
  format = getOption("photobiology.math", default = "R.expression"),
  label.text = NULL,
  scaled = FALSE,
  normalized = FALSE,
  axis.symbols = getOption("ggspectra.axis.symbols", default = TRUE)
)

A_total_label(
  unit.exponent = 0,
  format = getOption("photobiology.math", default = "R.expression"),
  label.text = NULL,
  scaled = FALSE,
  normalized = FALSE,
  axis.symbols = getOption("ggspectra.axis.symbols", default = TRUE)
)

Arguments

unit.exponent

integer

format

character string, "R", "R.expresion", "R.character", or "LaTeX".

label.text

character Textual portion of the labels.

scaled

logical If TRUE relative units are assumed.

normalized

logical (FALSE) or numeric Normalization wavelength in manometers (nm).

axis.symbols

logical If TRUE symbols of the quantities are added to the name. Supported only by format = "R.expression".

Tfr.type

character, either "total" or "internal".

Value

a character string or an R expression.

Note

Default for label.text depends on the value passed as argument to Tfr.type.

Examples

A_label(Tfr.type = "internal")
#> "Internal spectral absorbance," ~ italic(A)[lambda] ~ ~(plain("" * 
#>     AU))
A_label(Tfr.type = "total")
#> "Total spectral absorbance," ~ italic(A)[lambda] ~ ~(plain("" * 
#>     AU))
A_label(Tfr.type = "total", axis.symbols = FALSE)
#> "Total spectral absorbance" ~ ~(plain("" * AU))


A_internal_label()
#> "Internal spectral absorbance," ~ italic(A)[lambda] ~ ~(plain("" * 
#>     AU))
A_internal_label(format = "R.expression", axis.symbols = FALSE)
#> "Internal spectral absorbance" ~ ~(plain("" * AU))
A_internal_label(-3)
#> "Internal spectral absorbance," ~ italic(A)[lambda] ~ ~(plain("m" * 
#>     AU))
A_internal_label(format = "R.expression")
#> "Internal spectral absorbance," ~ italic(A)[lambda] ~ ~(plain("" * 
#>     AU))
A_internal_label(format = "LaTeX")
#> [1] "Internal spectral absorbance, $A_{\\lambda}$ (AU)"
A_internal_label(-3, format = "LaTeX")
#> [1] "Internal spectral absorbance, $A_{\\lambda}$ (mAU)"


A_total_label()
#> "Total spectral absorbance," ~ italic(A)[lambda] ~ ~(plain("" * 
#>     AU))
A_total_label(format = "R.expression", axis.symbols = FALSE)
#> "Total spectral absorbance" ~ ~(plain("" * AU))
A_total_label(-3)
#> "Total spectral absorbance," ~ italic(A)[lambda] ~ ~(plain("m" * 
#>     AU))
A_total_label(format = "R.expression")
#> "Total spectral absorbance," ~ italic(A)[lambda] ~ ~(plain("" * 
#>     AU))
A_total_label(format = "LaTeX")
#> [1] "Total spectral absorbance, $A_{\\lambda}$ (AU)"
A_total_label(-3, format = "LaTeX")
#> [1] "Total spectral absorbance, $A_{\\lambda}$ (mAU)"