Skip to content
Discussion options

You must be logged in to vote

This is the code used to make the plot you're talking about:

ArchR/R/CreateArrow.R

Lines 519 to 532 in 968e442

gg <- ggPoint(
x = pmin(log10(Metadata$nFrags), 5) + rnorm(length(Metadata$nFrags), sd = 0.00001),
y = Metadata$TSSEnrichment + rnorm(length(Metadata$nFrags), sd = 0.00001),
colorDensity = TRUE,
xlim = c(2.5, 5),
ylim = c(0, max(Metadata$TSSEnrichment) * 1.05),
baseSize = 6,
continuousSet = "sambaNight",
xlabel = "Log 10 (Unique Fragments)",
ylabel = "TSS Enrichment",
title = ggtitle,
rastr = TRUE) +
geom_hline(yintercept=filterTSS, lty = "dashed", size = 0.25) +
geom_vline(xintercept=log10(filterFrags), l…

Replies: 1 comment

Comment options

You must be logged in to vote
0 replies
Answer selected by jindalk
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
2 participants