Mercurial > repos > yufei-luo > s_mart

diff SMART/Java/Python/tmpFile26845.R @ 18:94ab73e8a190

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author m-zytnicki
date Mon, 29 Apr 2013 03:20:15 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SMART/Java/Python/tmpFile26845.R	Mon Apr 29 03:20:15 2013 -0400
@@ -0,0 +1,8 @@
+library(extrafont)
+loadfonts()
+library(ggplot2)
+data <- read.table("tmpFile26845.dat", header = T)
+data$Sample <- factor(data$Sample, levels=c("Col"))
+png("test.png", width = 800, height = 300)
+ggplot(data, aes(x = Pos/1000000, y = Count, fill = Sample, color = Sample)) + opts(title = "Distribution") + geom_bar(stat = "identity") + facet_grid(Sample ~ Chr, space="free") + xlab(" (in Gbp)") + ylab("# reads") + scale_fill_manual(values = c("red")) + scale_color_manual(values = c("red")) + opts(legend.position = "none", panel.grid.major = theme_blank(), panel.grid.minor = theme_blank(), panel.background = theme_blank()) + theme(text=element_text(family="Arial", size=12))
+dev.off()