R/plotting.R
    plotSinglePeptide.RdReturn if the input unque ID is in the dataset and filter out current results related to this
plotSinglePeptide(
  netPhorceData = netPhorceData,
  foundPepetidesIDs = NULL,
  plotAll = FALSE,
  plotly = FALSE
)(Required). Processed NetPhorce Object
(Required). Single or Multiple Peptides ID, you can use foundPepetidesIDs with ` peptideIDList = NULL to extract a full table of avaliable peptides.
(Optional). If TRUE, all matched peptides provided will be plotted in their individual plots.
(Required). If TRUE, output an interactive plotly version, else output a static ggplot2 version.
one or multiple ggplot/plotly object(s)
if (FALSE) {
## Loading Two Conditions Example
data("twoConditionsExample")
## Identify the Key Columns
identifiedCols <- confirmColumnNames(rawMaxQuant = twoConditionsExample,
                                    positionCol = "Position",
                                    reverseCol = "Reverse",
                                    localizationProbCol = "Localization prob",
                                    potentialContaminationCol = "Potential contaminant",
                                    aminoAcidCol = "Amino acid",
                                    uniqueIDCol = "Protein",
                                    seqWindowIDCol = "Sequence window",
                                    fastaIDCol = "Fasta headers")
## Identify the Intensity Columns with Condition, Time Point and Replication Information
intensityCols <- confirmIntensityColumns(rawMaxQuant = twoConditionsExample,
                                         intensityPattern = "con_time_rep",
                                         verbose = TRUE)
## Process the data based on the identified columns
netPhorceData <- processData(rawMaxQuant = twoConditionsExample,
                             processedColNames = identifiedCols,
                             processedIntensity = intensityCols,
                             minReplication = 3,
                             minLocalProb = 0.75)
## Provided IDs all matched the IDs in the netPhorce Data
peptideIDs <-
  findPeptideIDs(netPhorceData = netPhorceData,
                 peptideIDList = c("AT1G01320.2_S1349_1",
                                   "AT1G05560.1_S153_1",
                                   "AT1G01320.2_S149_1"))
## Plot the first Phosphopeptide ID - GGPLOT (Static) Version
plotSinglePeptide(netPhorceData = netPhorceData,
                   foundPepetidesIDs = peptideIDs,
                   plotAll = FALSE,
                   plotly = TRUE)
## Plot All Provided Phosphopeptide IDs - PLOTLY (Interactive) Version
plotSinglePeptide(netPhorceData = netPhorceData,
                   foundPepetidesIDs = peptideIDs,
                   plotAll = TRUE,
                   plotly = FALSE)
}