Fixes 72

common/fastqc_summary.R

@@ -194,7 +194,7 @@ baseQualities %>%
     geom_rect(aes(xmin=-Inf, xmax=Inf, ymin=20, ymax=28), data=runs, alpha=0.05, fill=colors()[654]) +
     geom_rect(aes(xmin=-Inf, xmax=Inf, ymin=28, ymax=Inf), data=runs, alpha=0.05, fill="green") +
     geom_boxplot(
-            mapping=aes(x=first_base, ymin = X10th.Percentile, lower = Lower.Quartile , middle = Median, upper = Upper.Quartile , ymax =  X90th.Percentile),
+            mapping=aes(x=first_base, ymin = X10th.Percentile, lower = Lower.Quartile , middle = Median, upper = Upper.Quartile , ymax =  X90th.Percentile, group = first_base),
              stat = "identity"
      ) +
     facet_wrap(~run, ncol=3) +