View source: R/get_peaktable.R
| mirror_plot | R Documentation |
Plots chromatograms as a mirror plot.
mirror_plot( peak_table, chrom_list, lambdas, var, subset = NULL, print_legend = TRUE, legend_txt = NULL, legend_pos = "topright", legend_size = 1, mirror = TRUE, xlim = NULL, ylim = NULL, ... )
peak_table |
The peak table (output from |
chrom_list |
A list of chromatograms in matrix form (timepoints x wavelengths). |
lambdas |
The wavelength you wish to plot the traces at. |
var |
Variable to index chromatograms. |
subset |
Character vector specifying levels to use (if more than 2 levels
are present in |
print_legend |
Logical. Whether to print legend. Defaults to |
legend_txt |
Character vector containing labels for legend. |
legend_pos |
Legend position. |
legend_size |
Legend size ( |
mirror |
Logical. Whether to plot as mirror or stacked plots.
Defaults to |
xlim |
Numerical vector specifying limits for x axis. |
ylim |
Numerical vector specifying limits for y axis. |
... |
Additional arguments to |
Can be used to confirm the identity of a peak or check that a particular column in the peak table represents a single compound. Can also be used to create simple box-plots to examine the distribution of a peak with respect to variables defined in sample metadata.
No return value, called for side effects.
If mirror_plot is TRUE, plots a mirror plot comparing two treatments
defined by var and subset (if more than two factors are present
in var).
Otherwise, if mirror_plot is FALSE, the treatments are plotted in two
separate panes.
Ethan Bass
data(Sa_warp)
data(pk_tab)
path <- system.file("extdata", "Sa_metadata.csv", package = "chromatographR")
meta <- read.csv(path)
pk_tab <- attach_metadata(peak_table = pk_tab, metadata = meta, column="vial")
mirror_plot(pk_tab,lambdas=c("210","260"), var="trt", mirror=TRUE, col=c("green","blue"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.