continued cutadapt report

dge_workflow/cutadapt_summary.R

@@ -98,3 +98,8 @@ genTable2 <- function(logFile){
 }
 table2 <- logDataFiles %>% ldply(genTable2) %>% print_head()
 
+ggplot(table1, aes(run, num_proReads)) + geom_bar(stat='identity') + coord_flip()
+
+ggplot(table2, aes(run, trimmed)) + geom_bar(stat='identity') + facet_wrap(~adapter) + coord_flip()
+ggplot(table2, aes(run, overlapped5)) + geom_bar(stat='identity') + facet_wrap(~adapter) + coord_flip()
+ggplot(table2, aes(run, overlapped3)) + geom_bar(stat='identity') + facet_wrap(~adapter) + coord_flip()