Display a a jitter plot for CC
Examples
data(subR25pept)
X <- BuildAdjacencyMatrix(subR25pept[[1]])
ll <- get.pep.prot.cc(X)[1:4]
n.prot <- unlist(lapply(ll, function(x) {length(x$proteins)}))
n.pept <- unlist(lapply(ll, function(x) {length(x$peptides)}))
df <- tibble::tibble(
x = jitter(n.pept),
y = jitter(n.prot),
index = seq_len(length(ll))
)
plotJitter_rCharts(df)
#> Warning: There is no tooltip in the object.