issue #77: cov plot example - updated

notes/cdhit_uniq_cov.R

@@ -34,8 +34,8 @@ cov_plot <- function(df_c, df_g){
     max_y <- max(df_c$coverage)
     pp <-
         ggplot(data=df_c) +
-        geom_rect(data=df_g, aes(xmin=start, xmax=end, ymin=0, ymax=max_y, fill=uniq), alpha=0.2) +
-        geom_rect(aes(xmin=start, xmax=end, ymin=0, ymax=coverage), fill="black", colour=NA) +
+        geom_rect(data=df_g, aes(xmin=start, xmax=end, ymin=0, ymax=max_y, fill=uniq, colour=uniq), alpha=0.3) +
+        geom_rect(aes(xmin=start, xmax=end, ymin=0, ymax=coverage), fill="black", colour=NA, alpha=1) +
         geom_hline(yintercept=10, colour="red") +
         scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x), labels = trans_format("log10", math_format(10^.x))) +
         labs(