R/plotFunctions/lmPlotPairMatch.R

In jchitpin/lipidMS: Annotating and barcoding the lipidome using targeted mass spectrometry

## Biophysical plot by 'GeneralID'


#load("/home/jchitpin/Downloads/Masters/Projects/MATRIX/Progress_Meetings/09_10_Oct_2018_Part3/meltLib.Rda")
#setnames(meltLib, "mz.for.lines", "MQ.Q1")
#setnames(meltLib, "variable", "Run")
#setnames(meltLib, "value", "Retention.Time")
#meltLib <- meltLib[Run == unique(Run)[1]]

lmPlotPairMatch <- function(fileMQ){
    colours <- c("#fc2c61","#00b43d","#1e63ea","#7a8a00","#5f3fa2","#006524",
                 "#ff8ace","#a2c592","#9e4100","#91afff","#ffb061","#784065")

    g <- ggplot(data=fileMQ,
                aes(x=coeff, y=int,
                    colour=as.factor(Match))) +
        geom_point(size=2, alpha = 0.25) +
        theme_bw() +
        theme(legend.position="right") +
        ylab("y-Intercept") +
        xlab("Slope Coefficient") +
        ggtitle(paste(as.character(fileMQ[, unique(Sample.Name)]),
                      "Group", as.character(fileMQ[, unique(Group)]), sep=" ")) +
        labs(colour="Match") #+
        #scale_y_continuous(limits = c(-25, 5)) +
        #scale_x_continuous(limits = c(0, 0.025))

    return(g)
}