@@ -42,7 +42,7 @@ Imports:

     rlang,

     RSQLite,

     Rsamtools,

-    scales,

+    scales (>= 1.2.0),

     scico,

     stats,

     stringr,

@@ -15,6 +15,7 @@

 #' @importFrom glue glue

 #' @importFrom assertthat assert_that is.readable is.writeable is.dir is.string

 #' @importFrom stringr str_extract

+#' @importFrom scales label_number cut_si

 #' @importFrom readr cols col_character col_integer col_logical col_double

 #' @importFrom tibble tibble as_tibble add_column

 #' @importFrom withr defer

@@ -133,7 +133,8 @@ setMethod("plot_gene", signature(x = "NanoMethResult", gene = "character"),

     )

     p1 <- p1 + ggplot2::scale_x_continuous(

             limits = c(plot_left, plot_right),

-            expand = ggplot2::expansion()

+            expand = ggplot2::expansion(),

+            labels = scales::label_number(scale_cut = scales::cut_si("b"))

         )

@@ -144,7 +145,8 @@ setMethod("plot_gene", signature(x = "NanoMethResult", gene = "character"),

         p2 <- plot_gene_annotation(exons_anno, plot_left, plot_right) +

             ggplot2::scale_x_continuous(

                 limits = c(plot_left, plot_right),

-                expand = ggplot2::expansion()

+                expand = ggplot2::expansion(),

+                labels = scales::label_number(scale_cut = scales::cut_si("b"))

             )

         n_unique <- function(x) { length(unique(x)) }

@@ -164,7 +166,8 @@ setMethod("plot_gene", signature(x = "NanoMethResult", gene = "character"),

         ) +

             ggplot2::scale_x_continuous(

                 limits = c(plot_left, plot_right),

-                expand = ggplot2::expansion())

+                expand = ggplot2::expansion(),

+                labels = scales::label_number(scale_cut = scales::cut_si("b")))

         p_out <- stack_plots(p_out, ggrastr::rasterise(p_heatmap, dpi = 300))

     }

@@ -102,7 +102,10 @@ plot_methylation_internal <- function(

         ggplot2::geom_rug(aes(col = NULL), sides = "b") +

         ggplot2::ggtitle(title) +

         ggplot2::xlab(chr) +

-        ggplot2::scale_y_continuous(limits = c(0, 1), expand = ggplot2::expansion()) +

+        ggplot2::scale_y_continuous(

+            limits = c(0, 1),

+            expand = ggplot2::expansion(),

+            labels = scales::label_number(scale_cut = scales::cut_si("b"))) +

         palette_col +

         ggplot2::theme_bw()

 }

@@ -199,13 +199,15 @@ setMethod("plot_region",

     ) +

         ggplot2::scale_x_continuous(

             limits = xlim,

-            expand = ggplot2::expansion()

+            expand = ggplot2::expansion(),

+            labels = scales::label_number(scale_cut = scales::cut_si("b"))

         )

     p2 <- plot_gene_annotation(exons_anno, xlim[1], xlim[2]) +

         ggplot2::scale_x_continuous(

             limits = xlim,

-            expand = ggplot2::expansion()

+            expand = ggplot2::expansion(),

+            labels = scales::label_number(scale_cut = scales::cut_si("b"))

         )

     anno_height <- attr(p2, "plot_height")

@@ -217,7 +219,8 @@ setMethod("plot_region",

         p_heatmap <- plot_region_heatmap(x, chr, start, end, window_prop = window_prop) +

             ggplot2::scale_x_continuous(

                 limits = xlim,

-                expand = ggplot2::expansion()

+                expand = ggplot2::expansion(),

+                labels = scales::label_number(scale_cut = scales::cut_si("b"))

             )

         p_out <- stack_plots(p_out, ggrastr::rasterise(p_heatmap, dpi = 300))