diff --git a/R/dataProcessPlots.R b/R/dataProcessPlots.R index 76da2a7e..9a290729 100644 --- a/R/dataProcessPlots.R +++ b/R/dataProcessPlots.R @@ -391,7 +391,8 @@ dataProcessPlots = function( Protein == all_proteins[i], list(PROTEIN = unique(Protein), PEPTIDE = "Run summary", TRANSITION = "Run summary", FEATURE = "Run summary", - LABEL = raw_label_map[LABEL], RUN = RUN, + LABEL = if("LABEL" %in% names(.SD)) raw_label_map[LABEL] else "Endogenous", + RUN = RUN, ABUNDANCE = LogIntensities, FRACTION = 1, UPPERBOUND = if("Variance" %in% names(.SD)) LogIntensities + 1.96 * sqrt(Variance) else NA_real_, # 95% confidence interval LOWERBOUND = if("Variance" %in% names(.SD)) LogIntensities - 1.96 * sqrt(Variance) else NA_real_ diff --git a/R/utils_dataprocess_plots.R b/R/utils_dataprocess_plots.R index 5036773a..f3cf7806 100644 --- a/R/utils_dataprocess_plots.R +++ b/R/utils_dataprocess_plots.R @@ -157,8 +157,7 @@ num_features = data.table::uniqueN(input$FEATURE) profile_plot = ggplot(data = input, aes(x = .data$RUN, y = .data$newABUNDANCE, - color = .data$analysis, linetype = .data$FEATURE, - size = .data$analysis)) + + color = .data$analysis, linetype = .data$FEATURE)) + facet_grid(~LABEL) + geom_line(linewidth = 0.5)