Small but helpful adjustment to the geom_col() settings in structure_…

…plot_ggplot_call().
stephenslab · Jan 29, 2025 · 9283dd3 · 9283dd3
1 parent 79144c8
commit 9283dd3
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Encoding: UTF-8
 Type: Package
 Package: fastTopics
-Version: 0.7-06
+Version: 0.7-07
 Date: 2024-01-29
 Title: Fast Algorithms for Fitting Topic Models and Non-Negative
     Matrix Factorizations to Count Data

diff --git a/R/fit_poisson_nmf.R b/R/fit_poisson_nmf.R
@@ -455,7 +455,7 @@ fit_poisson_nmf <- function (X, k, fit0, numiter = 100,
     cat(sprintf("Running at most %d %s updates, %s extrapolation ",
                 numiter,method.text,
                 ifelse(control$extrapolate,"with","without")))
-    cat("(fastTopics 0.7-6).\n")
+    cat("(fastTopics 0.7-7).\n")
   }
 
   # INITIALIZE ESTIMATES

diff --git a/R/structure_plot.R b/R/structure_plot.R
@@ -349,7 +349,7 @@ plot.multinom_topic_model_fit <- function (x, ...)
 structure_plot_ggplot_call <- function (dat, colors, ticks = NULL,
                                         font.size = 9, linewidth = 0)
   ggplot(dat,aes_string(x = "sample",y = "prop",fill = "topic")) +
-    geom_col(linewidth = linewidth) +
+    geom_col(linewidth = linewidth,width = 1) +
     scale_x_continuous(limits = c(0,max(dat$sample) + 1),breaks = ticks,
                        labels = names(ticks)) +
     scale_fill_manual(values = colors) +