https://wiki.taichimd.us/index.php?action=history&feed=atom&title=File%3AJitterbox.png 2026-04-09T15:46:58Z Revision history for this page on the wiki MediaWiki 1.43.6 https://wiki.taichimd.us/index.php?title=File:Jitterbox.png&diff=38771&oldid=prev 2024-02-09T02:53:46Z

<p>&lt;syntaxhighlight lang=&#039;r&#039;&gt; nc &lt;- 5 assy &lt;- LETTERS[1:nc] pal &lt;- ggpubr::get_palette(&quot;default&quot;, nc) set.seed(1) nr &lt;- 5 mat &lt;- matrix(runif(nr*length(assy)), nrow = nr, ncol = length(assy)) set.seed(1) cutoffs &lt;- runif(nc) colnames(mat) &lt;- assy par(mar=c(5,4,1,1)+.1) plot(1, 1, xlim = c(0.5, nc + .5), ylim = c(0,1), type = &quot;n&quot;, xlab = &quot;Assay&quot;, ylab = &quot;Score&quot;, xaxt = &#039;n&#039;) for (i in 1:nc) { rect(i - 0.25, 0, i + 0.25, 1, col = pal[i]) lines(x = c(i - 0.25, i + 0.25), y = c(cutof...</p> <p><b>New page</b></p><div>== Summary ==<br /> &lt;syntaxhighlight lang=&#039;r&#039;&gt;<br /> nc &lt;- 5<br /> assy &lt;- LETTERS[1:nc]<br /> pal &lt;- ggpubr::get_palette(&quot;default&quot;, nc)<br /> <br /> set.seed(1)<br /> nr &lt;- 5<br /> mat &lt;- matrix(runif(nr*length(assy)), nrow = nr, ncol = length(assy))<br /> set.seed(1)<br /> cutoffs &lt;- runif(nc)<br /> colnames(mat) &lt;- assy<br /> par(mar=c(5,4,1,1)+.1)<br /> plot(1, 1, xlim = c(0.5, nc + .5), <br /> ylim = c(0,1), type = &quot;n&quot;, xlab = &quot;Assay&quot;, <br /> ylab = &quot;Score&quot;, xaxt = &#039;n&#039;)<br /> for (i in 1:nc) {<br /> rect(i - 0.25, 0, i + 0.25, 1, col = pal[i])<br /> lines(x = c(i - 0.25, i + 0.25), y = c(cutoffs[i], cutoffs[i]), <br /> col = &quot;black&quot;, lwd = 2)<br /> points(jitter(rep(i, nr), amount=.2), mat[, i], pch=16)<br /> }<br /> axis(1, at = 1:ncol(mat), labels = colnames(mat))<br /> &lt;/syntaxhighlight&gt;</div>

Brb