Mercurial > repos > yufei-luo > s_mart

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
18
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
1 library(extrafont)
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
2 loadfonts()
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
3 library(ggplot2)
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
4 data <- read.table("tmpFile26845.dat", header = T)
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
5 data$Sample <- factor(data$Sample, levels=c("Col"))
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
6 png("test.png", width = 800, height = 300)
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
7 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))
94ab73e8a190 Uploaded
m-zytnicki
parents:
diff changeset
8 dev.off()