ChIPseeker
ChIPseeker copied to clipboard
feature request #202
this pr is to add function of changing colors of vennpie
library(TxDb.Hsapiens.UCSC.hg19.knownGene)
load_all()
files <- getSampleFiles()
txdb <- TxDb.Hsapiens.UCSC.hg19.knownGene
peakAnno <- annotatePeak(files[[4]],
tssRegion=c(-3000, 3000),
TxDb=txdb, annoDb="org.Hs.eg.db")
vennpie(peakAnno)
users can pass the col parameter to change colors, try to be notice the colors item should equal to the items in the picture
vennpie(peakAnno,col=c(NO='white',Genic='#fee0d2',Intergenic='#fec44f',
Intron='#fc9272',Exon='#ffeda0', Upstream='#9ecae1',
Downstream='#3182bd',Distal_Intergenic='#d95f0e'))