data(Sushi_ChIPSeq_severalfactors.bed)
chrom = "chr15"
chromstart = 72800000
chromend = 73100000
Sushi_ChIPSeq_severalfactors.bed$color = heat.colors(max(Sushi_ChIPSeq_severalfactors.bed$row))[Sushi_ChIPSeq_severalfactors.bed$row]
plotBed(beddata = Sushi_ChIPSeq_severalfactors.bed,chrom = chrom,chromstart = chromstart,chromend =chromend,
rownumber = Sushi_ChIPSeq_severalfactors.bed$row, type = "circles",color=Sushi_ChIPSeq_severalfactors.bed$color,row="given",plotbg="grey95",
rowlabels=unique(Sushi_ChIPSeq_severalfactors.bed$name),rowlabelcol=unique(Sushi_ChIPSeq_severalfactors.bed$color),rowlabelcex=0.75)
Sushi_ChIPSeq_severalfactors.bed$color = heat.colors(max(Sushi_ChIPSeq_severalfactors.bed$row))[Sushi_ChIPSeq_severalfactors.bed$row]
plotBed(beddata = Sushi_ChIPSeq_severalfactors.bed,chrom = chrom,chromstart = chromstart,chromend =chromend,
rownumber = Sushi_ChIPSeq_severalfactors.bed$row, type = "region",color=Sushi_ChIPSeq_severalfactors.bed$color,row="given",plotbg="grey95",
rowlabels=unique(Sushi_ChIPSeq_severalfactors.bed$name),rowlabelcol=unique(Sushi_ChIPSeq_severalfactors.bed$color),rowlabelcex=0.75)
colors = c("dodgerblue1","firebrick2","violet","yellow",
"dodgerblue1","firebrick2","violet","yellow",
"dodgerblue1","firebrick2","violet")
plotBed(beddata = Sushi_ChIPSeq_severalfactors.bed,chrom = chrom,chromstart = chromstart,chromend =chromend,
rownumber = Sushi_ChIPSeq_severalfactors.bed$row, type = "density",row="supplied",
rowlabels=unique(Sushi_ChIPSeq_severalfactors.bed$name),rowlabelcol=colors,rowlabelcex=0.75,
palettes=list(
colorRampPalette(c("black",colors[1])),
colorRampPalette(c("black",colors[2])),
colorRampPalette(c("black",colors[3])),
colorRampPalette(c("black",colors[4])),
colorRampPalette(c("black",colors[5])),
colorRampPalette(c("black",colors[6])),
colorRampPalette(c("black",colors[7])),
colorRampPalette(c("black",colors[8])),
colorRampPalette(c("black",colors[9])),
colorRampPalette(c("black",colors[10])),
colorRampPalette(c("black",colors[11]))))
Run the code above in your browser using DataLab