Commit f7605dc7 authored by Melanie Schneider's avatar Melanie Schneider

continued cutadapt report

parent 2ebf7a24
......@@ -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()
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment