Visualize Chromatograms

library(PKbioanalysis)

We will load Waters .raw Chromatograms using read_chrom(). We need to have method specified in the method argument. This can be done or edited using the interface in plate_app().

chrompath <- system.file("extdata", "waters_raw_ex", package="PKbioanalysis")
chroms <- read_chrom(chrompath, method = 1)
#> 
#> ── Reading Waters Raw Files
#> ℹ Found 7 raw files
#> → Loading
#> → loading /tmp/RtmplfDwgK/temp_libpath1deb201d1b2/PKbioanalysis/extdata/waters_…
#> → loading /tmp/RtmplfDwgK/temp_libpath1deb201d1b2/PKbioanalysis/extdata/waters_…
#> → loading /tmp/RtmplfDwgK/temp_libpath1deb201d1b2/PKbioanalysis/extdata/waters_…
#> → loading /tmp/RtmplfDwgK/temp_libpath1deb201d1b2/PKbioanalysis/extdata/waters_…
#> → loading /tmp/RtmplfDwgK/temp_libpath1deb201d1b2/PKbioanalysis/extdata/waters_…
#> → loading /tmp/RtmplfDwgK/temp_libpath1deb201d1b2/PKbioanalysis/extdata/waters_…
#> → loading /tmp/RtmplfDwgK/temp_libpath1deb201d1b2/PKbioanalysis/extdata/waters_…
#> ✔ Loaded 7 chromatograms
#> → loading
#> /tmp/RtmplfDwgK/temp_libpath1deb201d1b2/PKbioanalysis/extdata/waters_…

get_sample_names(chroms)
#>                     sample sample_id
#> 1      2024-04-15_DB_NT_R1         1
#> 2  2024-04-15_CS4_10_NT_R9         2
#> 3 2024-04-15_CS5_20_NT_R10         3
#> 4 2024-04-15_CS6_50_NT_R11         4
#> 5   2024-04-15_CS3_5_NT_R8         5
#> 6   2024-04-15_CS2_2_NT_R7         6
#> 7   2024-04-15_CS1_1_NT_R6         7

plot_chrom(chroms, sample_id = 3, ncol  = 2)

More interactive features for integeration and visualization are to be added in the future.

Omar Elashkar