Skip to content

Instantly share code, notes, and snippets.

@chasemc

chasemc/plot dend and scatter peaks

Created June 24, 2020 18:39
Show Gist options
  • Save chasemc/f7e12148553d0d77fd7320db46549e09 to your computer and use it in GitHub Desktop.
Save chasemc/f7e12148553d0d77fd7320db46549e09 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
plot dend and scatter peaks
plot(protein_peak_dend$dendrogram )
z<-sapply(protein_peak_data, function(x) x@mass[x@mass > 4000 & x@mass < 15000])
z <- z[ match(labels(protein_peak_dend$dendrogram),labels(z))]
plot(1, xlim=c(0,861), ylim=c(4000,15000))
for(i in seq_along(z)) points(z[[i]], x=rep(i, length(z[[i]])), col = rgb(red = 0, green = 0, blue = 0, alpha = 0.1), pch=16, cex=.5)
@chasemc
Copy link
Author

chasemc commented Jun 24, 2020

image

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment