diff --git a/R/MainBar.R b/R/MainBar.R index f0446e6..1480fd4 100644 --- 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) } }