# Load libraries
library(dplyr)
library(comprehenr)
library(tibble)
# Example data
set.seed(123)
data <- list(
"A" = tibble::tibble(
Analysis_mpwR = rep("A", times = 10),
CV_Retention.time_mpwR = sample(1:20, 10),
CV_Peptide_LFQ_mpwR = sample(1:30, 10),
CV_ProteinGroup_LFQ_mpwR = sample(1:30, 10)),
"B" = tibble::tibble(
Analysis_mpwR = rep("B", times = 10),
CV_Retention.time_mpwR = sample(1:20, 10),
CV_Peptide_LFQ_mpwR = sample(1:30, 10),
CV_ProteinGroup_LFQ_mpwR = sample(1:30, 10))
)
# Plot
plot_CV_density(
input_list = data,
cv_col = "Pep_quant"
)
Run the code above in your browser using DataLab