Description Usage Author(s) Source Examples
Stacked Contribution
1 2 3 4 |
Alexander Griffith griffita@gmail.com
https://github.com/alexjgriffith/mulcal
1 2 3 4 5 6 7 8 9 10 11 12 13 | tags<-read.table("~/Dropbox/UTX-Alex/jan/combined_sorted.bed")[,4]
catagories<-unique(unlist(lapply(levels(tags),strsplit,"-")))
values<-loadHeightFile("~/Dropbox/UTX-Alex/jan/combined_heights.bed")
data<-values$data
info<-values$info
pcs<-as.matrix(mulcal::ascore(data,c(1:10)))
swCat<-c("normal","normal","abnormal","abnormal","abnormal","abnormal","abnormal","abnormal","meka","ecfc","stem","stem")
swCat<-c("Erythroid","K562","Jurkat","CEM","RPMI","Prima5(Brand)","Prima2","Prima5","Megakaryocite","ECFC","CD133","CD34")
names(swCat)<-c("eryt","k562","jurk","cem","rpmi","tall_p1","tall_p2","tall_p3","meka","ecfc","cd133","cd34")
tSwCat<-as.character(unlist(lapply(catagories,function(x) swCat[x])))
stackedContrib(data,pcs[,1],catagories,tSwCat)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.