fixed injection time plot trend line

DESCRIPTION

@@ -3,7 +3,7 @@ Type: Package
 Title: Performs shiny application on bfabric data
 Author: Christian Trachsel [cre, aut], Christian Panse [cre, aut]
 Maintainer: Christian Trachsel<[email protected]>
-Version: 0.1.49
+Version: 0.1.50
 Description: provides access modules and functions to interact with the FGCZ's 
     bfabric system. The package contains shiny applications, e.g., to allow the FGCZ user 
     to automatically generate a certain set of queues for thermo instruments. 

R/rawFileQC.R

@@ -200,9 +200,9 @@
 
   figure <- ggplot(x, aes(x = StartTime, y = IonInjectionTimems)) +
     geom_hline(data = maxtimes, aes(yintercept = maxima), colour = "red3", linetype = "longdash") +
+    geom_point(shape = ".") +
     geom_line(stat = "smooth", method = "gam", formula = y~s(x), colour = "deepskyblue3", se = FALSE) +
     facet_grid(MSOrder~., scales = "free") +
-    geom_point(shape = ".") +
     scale_y_continuous(breaks = scales::pretty_breaks((n = 8))) +
     scale_x_continuous(breaks = scales::pretty_breaks((n = 8))) +
     labs(title = "Injection time plot", subtitle = "Plotting injection time against retention time for MS and MSn level") +