fixed caption in chromatogram plotting functions

aberHRML · Nov 11, 2021 · 573bc31 · 573bc31
1 parent 38265b3
commit 573bc31
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -91,8 +91,7 @@ plotChrom <- function(chromatograms,scans){
 		geom_line() +
 		plotTheme() +
 		scale_y_continuous(expand = c(0,0)) +
-		labs(title = 'TIC chromatograms of infusion profile',
-							caption = 'Red lines indcate scan range used for spectral binning.') +
+		labs(title = 'TIC chromatograms of infusion profile') +
 		facet_wrap(~polarity,
 													scales = 'free',
 													ncol = 1) +
@@ -101,6 +100,7 @@ plotChrom <- function(chromatograms,scans){
 
 	if (length(scans) > 0) {
 		pl <- pl +
+			labs(caption = 'Red lines indcate scan range used for spectral binning.') +
 			geom_vline(xintercept = min(scans),colour = 'red',linetype = 2) +
 			geom_vline(xintercept = max(scans),colour = 'red',linetype = 2) 
 	}