Guest User

Untitled

a guest
Dec 18th, 2017
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.09 KB | None | 0 0
  1. compartment percent seq
  2. dna 90 AAGTGT
  3. dna 3 AAGTGG
  4. dna 0 AAAAAA
  5. ...
  6. rna 75 AAGTGT
  7. rna 10 AAAAAA
  8. rna 10 AAGTGG
  9. ...
  10. ...
  11. plasma 75 AAGTGT
  12. plasma 10 AAGTGG
  13. plasma 0 AAAAAA
  14.  
  15. library(ggplot2)
  16. library(randomcoloR)
  17.  
  18. pal<-c(randomColor(count=2951))
  19. ggplot(df, aes( x=compartment, y=percent, fill=sequence) ) + labs(title="117")
  20. + geom_bar(stat = "identity") + scale_fill_manual(values=pal)
  21. + scale_x_discrete(limits=c("dna", "rna", "plasma"), labels=c("plasma"="PlasmanvRNA", "rna"="RNA","dna"="DNA"))
  22. + theme_bw() + theme(legend.position="none") + coord_polar(theta="y")
  23. + theme(axis.line = element_blank(), panel.grid.major.x = element_blank(), panel.grid.major.y = element_blank(),
  24. panel.grid.minor = element_blank(), panel.border = element_blank(), panel.background = element_blank())
  25. + theme(axis.text=element_blank(), axis.title = element_blank(), axis.ticks = element_blank())
  26. + theme(plot.title = element_text(colour="black", face="bold", size=24, hjust=0.5))
Add Comment
Please, Sign In to add comment