allow decimals for log scale

hms-dbmi · Nov 30, 2016 · 529e546 · 529e546
1 parent d9000cf
commit 529e546
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/MainBar.R b/R/MainBar.R
@@ -108,11 +108,11 @@ Make_main_bar <- function(Main_bar_data, Q, show_num, ratios, customQ, number_an
   if(ylabel == "Intersection Size" && scale_intersections != "identity"){
     ylabel <- paste("Intersection Size", paste0("( ", scale_intersections, " )"))
     if(scale_intersections == "log2"){
-      Main_bar_data$freq <- round(log2(Main_bar_data$freq))
+      Main_bar_data$freq <- round(log2(Main_bar_data$freq), 2)
       ymax <- log2(ymax)
     }
     if(scale_intersections == "log10"){
-      Main_bar_data$freq <- round(log10(Main_bar_data$freq))
+      Main_bar_data$freq <- round(log10(Main_bar_data$freq), 2)
       ymax <- log10(ymax)
     }
   }