# NOT RUN {
# Load libraries
library(dplyr)
library(stringr)
library(ggplot2)
library(tibble)
# DIA-NN example data
data <- tibble::tibble(
"traceR_connected_pg_prec" = c("common_common", "common_unique", "unique_common"),
"traceR_traced_proteinGroups" = c("common", "common", "unique"),
"traceR_traced_mod.peptides" = c("common", "unique", "common"),
"traceR_traced_precursor" = c("common", "unique", "common"),
"traceR_proteinGroups" = c("P02768", "P02671", "Q92496"),
"traceR_precursor" = c("AAC(UniMod:4)LLPK1", "RLEVDIDIK2", "EGIVEYPR2")
)
# Upper level - proteingroup level - how many proteingroups have a specific categorization
# Plot
analyze_connected_levels(input_df = data,
connected_levels = "proteinGroup_precursor",
count_level = "upper",
plot = TRUE,
plot_characteristic = "relative")
#Report
analyze_connected_levels(input_df = data,
connected_levels = "proteinGroup_precursor",
count_level = "upper",
plot = FALSE)
# }
Run the code above in your browser using DataLab