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.