# Load libraries
library(magrittr)
library(dplyr)
library(tibble)
# Example data
data <- list(
"A" = tibble::tibble(
Analysis = c("A", "A", "A"),
Nr.Missing.Values = c(2, 1, 0),
Precursor.IDs = c(50, 200, 4500),
Peptide.IDs = c(30, 190, 3000),
Protein.IDs = c(20, 40, 600),
ProteinGroup.IDs = c(15, 30, 450),
Profile = c("unique", "shared with at least 50%", "complete")
),
"B" = tibble::tibble(
Analysis = c("B", "B", "B"),
Nr.Missing.Values = c(2, 1, 0),
Precursor.IDs = c(50, 180, 4600),
Peptide.IDs = c(50, 170, 3200),
Protein.IDs = c(20, 40, 500),
ProteinGroup.IDs = c(15, 30, 400),
Profile = c("unique", "shared with at least 50%", "complete")
)
)
# Plot
plot_DC_stacked_barplot(
input_list = data,
level = "Precursor.IDs",
label = "absolute"
)
Run the code above in your browser using DataLab