addressing issue #56

Author: tetomonti

R/hyp_dots.R

@@ -90,7 +90,8 @@
     dplyr::filter(significance <= cutoff) %>%
     ggplot(aes(x = signature, y = label, color = significance, size = size)) +
     geom_point() +
-    scale_color_continuous(low = "#114357", high = "#E53935", trans = .reverselog_trans(10)) +
+    scale_color_continuous(low = "#114357", high = "#E53935", trans = log_trans(10), 
+                           guide = guide_colorbar(reverse = TRUE)) +
     labs(title = title, color = color.label) +
     theme(
       plot.title = element_text(hjust = 0.5),
@@ -105,10 +106,10 @@
     p <- p + scale_size_continuous(trans = .reverselog_trans(10)) + labs(size = "Significance")
   }
   if (size_by == "genesets") {
-    #p <- p + scale_size_continuous(trans = scales::log10_trans()) + labs(size = "Genesets\nSize")
-    p <- p + scale_color_continuous(
-      high = "#114357", low = "#E53935", trans = scales::log10_trans(),
-      guide = guide_colorbar(reverse = TRUE)
+    p <- p + scale_size_continuous(trans = scales::log10_trans()) + labs(size = "Genesets\nSize")
+    # p <- p + scale_color_continuous(
+    #   high = "#114357", low = "#E53935", trans = scales::log10_trans(),
+    #   guide = guide_colorbar(reverse = TRUE)
     )
   }
   return(p)