Example of using qplot for a bar plot colored by sample or populations

ggplot2.tcga_and_1kg_cpv.R

library(ggplot2)
library(gridExtra)
cov <- read.table("/Users/arq5x/Documents/Projects/HallLab/TCGA-1KG/ForKeystone/tcga_and_1kg_span_cov.txt",header=TRUE)
span <- qplot(sample, span_cov, data=cov, fill=factor(type_num), geom="bar", 
             binwidth=1, 
             xlab="Sample", 
             ylab="Spanning coverage") +
        opts(axis.ticks = theme_blank(), 
             axis.text.x = theme_blank(), 
             axis.title.x = theme_text(size = 18, face = "bold"), 
             axis.title.y = theme_text(size = 18, face = "bold", angle=90), 
             axis.text.y = theme_text(size=16))