Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- compartment percent seq
- dna 90 AAGTGT
- dna 3 AAGTGG
- dna 0 AAAAAA
- ...
- rna 75 AAGTGT
- rna 10 AAAAAA
- rna 10 AAGTGG
- ...
- ...
- plasma 75 AAGTGT
- plasma 10 AAGTGG
- plasma 0 AAAAAA
- library(ggplot2)
- library(randomcoloR)
- pal<-c(randomColor(count=2951))
- ggplot(df, aes( x=compartment, y=percent, fill=sequence) ) + labs(title="117")
- + geom_bar(stat = "identity") + scale_fill_manual(values=pal)
- + scale_x_discrete(limits=c("dna", "rna", "plasma"), labels=c("plasma"="PlasmanvRNA", "rna"="RNA","dna"="DNA"))
- + theme_bw() + theme(legend.position="none") + coord_polar(theta="y")
- + theme(axis.line = element_blank(), panel.grid.major.x = element_blank(), panel.grid.major.y = element_blank(),
- panel.grid.minor = element_blank(), panel.border = element_blank(), panel.background = element_blank())
- + theme(axis.text=element_blank(), axis.title = element_blank(), axis.ticks = element_blank())
- + theme(plot.title = element_text(colour="black", face="bold", size=24, hjust=0.5))
Add Comment
Please, Sign In to add comment