diff --git a/NAMESPACE b/NAMESPACE
index 68a61fe9..7e59aff6 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -90,6 +90,7 @@ importFrom(SummarizedExperiment,assays)
 importFrom(SummarizedExperiment,colData)
 importFrom(benchmarkme,get_ram)
 importFrom(circlize,colorRamp2)
+importFrom(cowplot,get_legend)
 importFrom(cowplot,plot_grid)
 importFrom(dplyr,group_by)
 importFrom(dplyr,left_join)
@@ -105,6 +106,8 @@ importFrom(grDevices,pdf)
 importFrom(graphics,boxplot)
 importFrom(graphics,par)
 importFrom(graphics,points)
+importFrom(grid,grid.draw)
+importFrom(grid,grid.newpage)
 importFrom(grid,rasterGrob)
 importFrom(grid,unit)
 importFrom(jsonlite,read_json)
diff --git a/R/add_qc_metrics.R b/R/add_qc_metrics.R
index 1aa90a70..23be3541 100644
--- a/R/add_qc_metrics.R
+++ b/R/add_qc_metrics.R
@@ -71,7 +71,7 @@
 #' ## Visualize scran QC flags
 #'
 #' ## Check the spots with low library size as detected by scran::isOutlier()
-#' vis_clus(spe_qc, sample_id = "Br6432_ant", clustervar = "scran_low_lib_size")
+#' vis_clus(spe_qc, sampleid = "Br6432_ant", clustervar = "scran_low_lib_size")
 #'
 #' ## Violin plot of library size with low library size highlighted in a
 #' ## different color.
diff --git a/R/app_server.R b/R/app_server.R
index fe432807..5928e41a 100644
--- a/R/app_server.R
+++ b/R/app_server.R
@@ -176,9 +176,9 @@ app_server <- function(input, output, session) {
             alpha = input$alphalevel,
             point_size = input$pointsize,
             auto_crop = input$auto_crop,
-            is_stitched = is_stitched,
+            is_stitched = is_stitched,         
             guide_point_size = input$guidepointsize,
-            ... = paste(" with", input$cluster)
+            title_suffix = paste("with", input$cluster)
         )
         if (!input$side_by_side_histology) {
             return(p)
@@ -220,8 +220,9 @@ app_server <- function(input, output, session) {
                 auto_crop = isolate(input$auto_crop),
                 is_stitched = is_stitched,
                 guide_point_size = isolate(input$guidepointsize),
-                ... = paste(" with", isolate(input$cluster))
-            )
+                guides = isolate(input$guides),
+                title_suffix = paste("with", isolate(input$cluster))
+                )
         cowplot::plot_grid(
             plotlist = plots,
             nrow = isolate(input$grid_nrow),
diff --git a/R/app_ui.R b/R/app_ui.R
index e88763d1..0dd81bb9 100644
--- a/R/app_ui.R
+++ b/R/app_ui.R
@@ -419,6 +419,12 @@ app_ui <- function() {
                                         value = 3,
                                         min = 1
                                     ),
+                                    selectInput(
+                                        "guides",
+                                        label = "Show guides",
+                                        choices = c("all", "last", "none"),
+                                        selected = "last"
+                                    ),
                                     actionButton(
                                         "grid_update",
                                         label = "Update grid plot"
diff --git a/R/vis_clus.R b/R/vis_clus.R
index e10c4e72..f9dc86c1 100644
--- a/R/vis_clus.R
+++ b/R/vis_clus.R
@@ -41,8 +41,8 @@
 #' specifying which spots to exclude from the plot. Sets `auto_crop = FALSE`.
 #' @param guide_point_size A `numeric(1)` specifying the size of the points in 
 #' guide. Defaults to `point_size`. Increase to improve visability. 
-#' @param ... Passed to [paste0()][base::paste] for making the title of the
-#' plot following the `sampleid`.
+#' @param title_suffix A `character(1)` passed to [paste()][base::paste] to 
+#' modify the title of the plot following the `sampleid`.
 #'
 #' @return A [ggplot2][ggplot2::ggplot] object.
 #' @family Spatial cluster visualization functions
@@ -66,7 +66,7 @@
 #'         clustervar = "layer_guess_reordered",
 #'         sampleid = "151673",
 #'         colors = libd_layer_colors,
-#'         ... = " LIBD Layers"
+#'         title_suffix = "LIBD Layers"
 #'     )
 #'     print(p1)
 #'
@@ -77,7 +77,7 @@
 #'         sampleid = "151673",
 #'         colors = libd_layer_colors,
 #'         auto_crop = FALSE,
-#'         ... = " LIBD Layers"
+#'         title_suffix = "LIBD Layers"
 #'     )
 #'     print(p2)
 #'
@@ -87,7 +87,7 @@
 #'         clustervar = "layer_guess_reordered",
 #'         sampleid = "151673",
 #'         colors = libd_layer_colors,
-#'         ... = " LIBD Layers",
+#'         title_suffix = " LIBD Layers",
 #'         spatial = FALSE
 #'     )
 #'     print(p3)
@@ -101,7 +101,7 @@
 #'         sampleid = "151673",
 #'         colors = libd_layer_colors,
 #'         na_color = "white",
-#'         ... = " LIBD Layers"
+#'         title_suffix = " LIBD Layers"
 #'     )
 #'     print(p4)
 #'     
@@ -145,7 +145,7 @@ vis_clus <- function(
         na_color = "#CCCCCC40",
         is_stitched = FALSE,
         guide_point_size = point_size,
-        ...) {
+        title_suffix = NULL) {
     #   Verify existence and legitimacy of 'sampleid'
     if (
         !("sample_id" %in% colnames(colData(spe))) ||
@@ -187,7 +187,7 @@ vis_clus <- function(
         clustervar = clustervar,
         sampleid = sampleid,
         spatial = spatial,
-        title = paste0(sampleid, ...),
+        title = paste(sampleid, title_suffix),
         colors = get_colors(colors, d[, clustervar]),
         image_id = image_id,
         alpha = alpha,
diff --git a/R/vis_gene.R b/R/vis_gene.R
index 1e129164..5f420c0d 100644
--- a/R/vis_gene.R
+++ b/R/vis_gene.R
@@ -139,7 +139,8 @@
 #'         sampleid = "151507",
 #'         geneid = white_matter_genes,
 #'         multi_gene_method = "z_score",
-#'         cap_percentile = 0.95
+#'         cap_percentile = 0.95,
+#'         title_suffix = "White Matter Genes"
 #'     )
 #'     print(p6)
 #'
@@ -149,7 +150,8 @@
 #'         spe = spe,
 #'         sampleid = "151507",
 #'         geneid = white_matter_genes,
-#'         multi_gene_method = "sparsity"
+#'         multi_gene_method = "sparsity",
+#'         title_suffix = "White Matter Genes"
 #'     )
 #'     print(p7)
 #'
@@ -159,7 +161,8 @@
 #'         spe = spe,
 #'         sampleid = "151507",
 #'         geneid = white_matter_genes,
-#'         multi_gene_method = "pca"
+#'         multi_gene_method = "pca",
+#'         title_suffix = "White Matter Genes"
 #'     )
 #'     print(p8)
 #' }
@@ -180,7 +183,7 @@ vis_gene <-
     multi_gene_method = c("z_score", "pca", "sparsity"),
     is_stitched = FALSE,
     cap_percentile = 1,
-    ...) {
+    title_suffix = NULL) {
         multi_gene_method <- rlang::arg_match(multi_gene_method)
         #   Verify existence and legitimacy of 'sampleid'
         if (
@@ -274,7 +277,7 @@ vis_gene <-
 
         #   Determine plot and legend titles
         if (ncol(cont_matrix) == 1) {
-            plot_title <- paste(sampleid, geneid, ...)
+            plot_title <- paste(sampleid, geneid, title_suffix)
             d$COUNT <- cont_matrix[, 1]
             if (!(geneid %in% colnames(colData(spe_sub)))) {
                 legend_title <- sprintf("%s\n min > %s", assayname, minCount)
@@ -282,7 +285,7 @@ vis_gene <-
                 legend_title <- sprintf("min > %s", minCount)
             }
         } else {
-            plot_title <- paste(sampleid, ...)
+            plot_title <- paste(sampleid, title_suffix)
             if (multi_gene_method == "z_score") {
                 d$COUNT <- multi_gene_z_score(cont_matrix)
                 legend_title <- paste("Z score\n min > ", minCount)
diff --git a/R/vis_grid_clus.R b/R/vis_grid_clus.R
index 64007900..4f54a2b3 100644
--- a/R/vis_grid_clus.R
+++ b/R/vis_grid_clus.R
@@ -7,7 +7,7 @@
 #' @inheritParams vis_clus
 #' @param pdf_file A `character(1)` specifying the path for the resulting PDF.
 #' @param sort_clust A `logical(1)` indicating whether you want to sort
-#' the clusters by frequency using [sort_clusters()].
+#' the clusters by frequency using [sort_clusters()]. Defuault `FALSE`.
 #' @param return_plots A `logical(1)` indicating whether to print the plots
 #' to a PDF or to return the list of plots that you can then print using
 #' [plot_grid][cowplot::plot_grid()].
@@ -15,11 +15,17 @@
 #' @param width A `numeric(1)` passed to [pdf][grDevices::pdf()].
 #' @param sample_order A `character()` with the names of the samples to use
 #' and their order.
+#' @param guides A `character(1)` specifying which guides to print. Defaults to 
+#' `all` which plots all guides. `last` prints a guide for only on the last 
+#' sample. `none` prints no guides with the plots, but prints a guide on 
+#' separate page.
 #'
 #' @return A list of [ggplot2][ggplot2::ggplot] objects.
 #' @export
 #' @importFrom grDevices pdf dev.off
 #' @importFrom SummarizedExperiment colData<-
+#' @importFrom cowplot plot_grid get_legend
+#' @importFrom grid grid.newpage grid.draw
 #' @family Spatial cluster visualization functions
 #' @details This function prepares the data and then loops through
 #' [vis_clus()] for computing the list of [ggplot2][ggplot2::ggplot]
@@ -47,27 +53,30 @@
 #'     cowplot::plot_grid(plotlist = p_list, ncol = 2)
 #' }
 vis_grid_clus <-
-    function(
-        spe,
-        clustervar,
-        pdf_file,
-        sort_clust = TRUE,
-        colors = NULL,
-        return_plots = FALSE,
-        spatial = TRUE,
-        height = 24,
-        width = 36,
-        image_id = "lowres",
-        alpha = NA,
-        sample_order = unique(spe$sample_id),
-        point_size = 2,
-        auto_crop = TRUE,
-        na_color = "#CCCCCC40",
-        is_stitched = FALSE,
-        guide_point_size = point_size,
-        ...
+    function(spe,
+    clustervar,
+    pdf_file,
+    sort_clust = FALSE,
+    colors = NULL,
+    return_plots = FALSE,
+    spatial = TRUE,
+    height = 24,
+    width = 36,
+    image_id = "lowres",
+    alpha = NA,
+    sample_order = unique(spe$sample_id),
+    point_size = 2,
+    auto_crop = TRUE,
+    na_color = "#CCCCCC40",
+    is_stitched = FALSE,
+    guide_point_size = point_size,
+    guides = c("all", "last", "none"),
+    title_suffix = NULL
     ) {
-        stopifnot(all(sample_order %in% unique(spe$sample_id)))
+      
+      stopifnot(all(sample_order %in% unique(spe$sample_id)))
+      ## check guides selection
+      guides <- rlang::arg_match(guides)
 
         if (sort_clust) {
             colData(spe)[[clustervar]] <-
@@ -88,15 +97,42 @@ vis_grid_clus <-
                     na_color = na_color,
                     is_stitched = is_stitched,
                     guide_point_size = guide_point_size,
-                    ...
+                    title_suffix = title_suffix
                 )
             })
         names(plots) <- sample_order
+        
+        if(!guides == "all"){
+          ## get legend
+          suppressWarnings(legend <- cowplot::get_legend(plots[[1]]))
+          
+          ## Set legend position to None on all plots
+          noguide <- function(gp){
+            gp + theme(legend.position = "None")
+          }
+          plots <- lapply(plots, noguide)
+          
+          if(guides == "last") {
+            ## re-set legend in last plot
+            plots[[length(plots)]] <- plots[[length(plots)]] + theme(legend.position = "right")
+          } 
+          
+        }
 
         if (!return_plots) {
+          if(guides %in% c("all", "last")){
+            pdf(pdf_file, height = height, width = width)
+            print(cowplot::plot_grid(plotlist = plots))
+            dev.off()
+            
+          } else if(guides == "none"){
+            ## print guide on next page
             pdf(pdf_file, height = height, width = width)
             print(cowplot::plot_grid(plotlist = plots))
+            grid::grid.newpage()
+            grid::grid.draw(legend)
             dev.off()
+          }
             return(pdf_file)
         } else {
             return(plots)
diff --git a/R/vis_grid_gene.R b/R/vis_grid_gene.R
index 6cccee2a..dd41ec89 100644
--- a/R/vis_grid_gene.R
+++ b/R/vis_grid_gene.R
@@ -53,8 +53,7 @@ vis_grid_gene <-
     auto_crop = TRUE,
     na_color = "#CCCCCC40",
     is_stitched = FALSE,
-    cap_percentile = 1,
-    ...) {
+    cap_percentile = 1) {
         stopifnot(all(sample_order %in% unique(spe$sample_id)))
 
         plots <- lapply(sample_order, function(sampleid) {
@@ -73,8 +72,7 @@ vis_grid_gene <-
                 auto_crop = auto_crop,
                 na_color = na_color,
                 is_stitched = is_stitched,
-                cap_percentile = cap_percentile,
-                ...
+                cap_percentile = cap_percentile
             )
         })
         names(plots) <- sample_order
diff --git a/README.Rmd b/README.Rmd
index 75954369..0733b159 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -140,7 +140,7 @@ vis_clus(
     clustervar = "spatialLIBD",
     sampleid = "151673",
     colors = libd_layer_colors,
-    ... = " DLPFC Human Brain Layers\nMade with research.libd.org/spatialLIBD/"
+    title_suffix = " DLPFC Human Brain Layers\nMade with research.libd.org/spatialLIBD/"
 )
 ```
 
diff --git a/README.md b/README.md
index 7c1e0455..fd9acc06 100644
--- a/README.md
+++ b/README.md
@@ -61,9 +61,9 @@ pre-print](https://www.biorxiv.org/content/10.1101/2020.02.28.969931v1)
 for more details about this project.
 
 If you write about this website, the data or the R package please use
-the <code>\#spatialLIBD</code> hashtag. See previous tagged Bluesky posts 
-<a href="https://bsky.app/search?q=%23spatialLIBD">here</a>.
-Thank you!
+the <code>\#spatialLIBD</code> hashtag. See previous tagged Bluesky
+posts <a href="https://bsky.app/search?q=%23spatialLIBD">here</a>. Thank
+you!
 
 ## Study design
 
@@ -188,6 +188,10 @@ details, check the help file for `fetch_data()`.
 ``` r
 ## Load the package
 library("spatialLIBD")
+#> Warning: package 'SingleCellExperiment' was built under R version 4.4.2
+#> Warning: package 'MatrixGenerics' was built under R version 4.4.2
+#> Warning: package 'IRanges' was built under R version 4.4.2
+#> Warning: package 'GenomeInfoDb' was built under R version 4.4.2
 
 ## Download the spot-level data
 spe <- fetch_data(type = "spe")
@@ -210,16 +214,10 @@ spe
 #> altExpNames(0):
 #> spatialCoords names(2) : pxl_col_in_fullres pxl_row_in_fullres
 #> imgData names(4): sample_id image_id data scaleFactor
-```
-
-``` r
 
 ## Note the memory size
 lobstr::obj_size(spe)
 #> 2.04 GB
-```
-
-``` r
 
 ## Remake the logo image with histology information
 vis_clus(
@@ -227,7 +225,7 @@ vis_clus(
     clustervar = "spatialLIBD",
     sampleid = "151673",
     colors = libd_layer_colors,
-    ... = " DLPFC Human Brain Layers\nMade with research.libd.org/spatialLIBD/"
+    title_suffix = " DLPFC Human Brain Layers\nMade with research.libd.org/spatialLIBD/"
 )
 ```
 
@@ -366,7 +364,7 @@ By contributing to this project, you agree to abide by its terms.
   *[rcmdcheck](https://CRAN.R-project.org/package=rcmdcheck)* customized
   to use [Bioconductor’s docker
   containers](https://www.bioconductor.org/help/docker/) and
-  *[BiocCheck](https://bioconductor.org/packages/3.19/BiocCheck)*.
+  *[BiocCheck](https://bioconductor.org/packages/3.20/BiocCheck)*.
 - Code coverage assessment is possible thanks to
   [codecov](https://codecov.io/gh) and
   *[covr](https://CRAN.R-project.org/package=covr)*.
@@ -383,7 +381,7 @@ By contributing to this project, you agree to abide by its terms.
 For more details, check the `dev` directory.
 
 This package was developed using
-*[biocthis](https://bioconductor.org/packages/3.19/biocthis)*.
+*[biocthis](https://bioconductor.org/packages/3.20/biocthis)*.
 
 <a href="https://www.libd.org/"><img src="http://lcolladotor.github.io/img/LIBD_logo.jpg" width="250px"></a>
 
@@ -396,5 +394,5 @@ This package was developed using
   window.dataLayer = window.dataLayer || [];
   function gtag(){dataLayer.push(arguments);}
   gtag('js', new Date());
-  gtag('config', 'G-QKT3SV9EFL');
+&#10;  gtag('config', 'G-QKT3SV9EFL');
 </script>
diff --git a/man/add_qc_metrics.Rd b/man/add_qc_metrics.Rd
index 7623b2c2..b0fbbd75 100644
--- a/man/add_qc_metrics.Rd
+++ b/man/add_qc_metrics.Rd
@@ -76,7 +76,7 @@ vis_gene(spe_qc, sampleid = "Br6432_ant", geneid = "edge_distance", minCount = -
 ## Visualize scran QC flags
 
 ## Check the spots with low library size as detected by scran::isOutlier()
-vis_clus(spe_qc, sample_id = "Br6432_ant", clustervar = "scran_low_lib_size")
+vis_clus(spe_qc, sampleid = "Br6432_ant", clustervar = "scran_low_lib_size")
 
 ## Violin plot of library size with low library size highlighted in a
 ## different color.
diff --git a/man/figures/README-access_data-1.png b/man/figures/README-access_data-1.png
index a4d11328..7fa506e8 100644
Binary files a/man/figures/README-access_data-1.png and b/man/figures/README-access_data-1.png differ
diff --git a/man/vis_clus.Rd b/man/vis_clus.Rd
index c01c8028..d136466b 100644
--- a/man/vis_clus.Rd
+++ b/man/vis_clus.Rd
@@ -18,7 +18,7 @@ vis_clus(
   na_color = "#CCCCCC40",
   is_stitched = FALSE,
   guide_point_size = point_size,
-  ...
+  title_suffix = NULL
 )
 }
 \arguments{
@@ -71,8 +71,8 @@ specifying which spots to exclude from the plot. Sets \code{auto_crop = FALSE}.}
 \item{guide_point_size}{A \code{numeric(1)} specifying the size of the points in
 guide. Defaults to \code{point_size}. Increase to improve visability.}
 
-\item{...}{Passed to \link[base:paste]{paste0()} for making the title of the
-plot following the \code{sampleid}.}
+\item{title_suffix}{A \code{character(1)} passed to \link[base:paste]{paste()} to
+modify the title of the plot following the \code{sampleid}.}
 }
 \value{
 A \link[ggplot2:ggplot]{ggplot2} object.
@@ -101,7 +101,7 @@ if (enough_ram()) {
         clustervar = "layer_guess_reordered",
         sampleid = "151673",
         colors = libd_layer_colors,
-        ... = " LIBD Layers"
+        title_suffix = "LIBD Layers"
     )
     print(p1)
 
@@ -112,7 +112,7 @@ if (enough_ram()) {
         sampleid = "151673",
         colors = libd_layer_colors,
         auto_crop = FALSE,
-        ... = " LIBD Layers"
+        title_suffix = "LIBD Layers"
     )
     print(p2)
 
@@ -122,7 +122,7 @@ if (enough_ram()) {
         clustervar = "layer_guess_reordered",
         sampleid = "151673",
         colors = libd_layer_colors,
-        ... = " LIBD Layers",
+        title_suffix = " LIBD Layers",
         spatial = FALSE
     )
     print(p3)
@@ -136,7 +136,7 @@ if (enough_ram()) {
         sampleid = "151673",
         colors = libd_layer_colors,
         na_color = "white",
-        ... = " LIBD Layers"
+        title_suffix = " LIBD Layers"
     )
     print(p4)
     
diff --git a/man/vis_gene.Rd b/man/vis_gene.Rd
index 49fe828c..752bc630 100644
--- a/man/vis_gene.Rd
+++ b/man/vis_gene.Rd
@@ -22,7 +22,7 @@ vis_gene(
   multi_gene_method = c("z_score", "pca", "sparsity"),
   is_stitched = FALSE,
   cap_percentile = 1,
-  ...
+  title_suffix = NULL
 )
 }
 \arguments{
@@ -107,8 +107,8 @@ of 0.95 sets the top 5\% of expression values to the 95th percentile value.
 This can help make the color scale more dynamic in the presence of high
 outliers. Defaults to \code{1}, which effectively performs no capping.}
 
-\item{...}{Passed to \link[base:paste]{paste0()} for making the title of the
-plot following the \code{sampleid}.}
+\item{title_suffix}{A \code{character(1)} passed to \link[base:paste]{paste()} to
+modify the title of the plot following the \code{sampleid}.}
 }
 \value{
 A \link[ggplot2:ggplot]{ggplot2} object.
@@ -211,7 +211,8 @@ if (enough_ram()) {
         sampleid = "151507",
         geneid = white_matter_genes,
         multi_gene_method = "z_score",
-        cap_percentile = 0.95
+        cap_percentile = 0.95,
+        title_suffix = "White Matter Genes"
     )
     print(p6)
 
@@ -221,7 +222,8 @@ if (enough_ram()) {
         spe = spe,
         sampleid = "151507",
         geneid = white_matter_genes,
-        multi_gene_method = "sparsity"
+        multi_gene_method = "sparsity",
+        title_suffix = "White Matter Genes"
     )
     print(p7)
 
@@ -231,7 +233,8 @@ if (enough_ram()) {
         spe = spe,
         sampleid = "151507",
         geneid = white_matter_genes,
-        multi_gene_method = "pca"
+        multi_gene_method = "pca",
+        title_suffix = "White Matter Genes"
     )
     print(p8)
 }
diff --git a/man/vis_grid_clus.Rd b/man/vis_grid_clus.Rd
index ba69f862..ae97e498 100644
--- a/man/vis_grid_clus.Rd
+++ b/man/vis_grid_clus.Rd
@@ -8,7 +8,7 @@ vis_grid_clus(
   spe,
   clustervar,
   pdf_file,
-  sort_clust = TRUE,
+  sort_clust = FALSE,
   colors = NULL,
   return_plots = FALSE,
   spatial = TRUE,
@@ -22,7 +22,8 @@ vis_grid_clus(
   na_color = "#CCCCCC40",
   is_stitched = FALSE,
   guide_point_size = point_size,
-  ...
+  guides = c("all", "last", "none"),
+  title_suffix = NULL
 )
 }
 \arguments{
@@ -38,7 +39,7 @@ column that has the cluster values.}
 \item{pdf_file}{A \code{character(1)} specifying the path for the resulting PDF.}
 
 \item{sort_clust}{A \code{logical(1)} indicating whether you want to sort
-the clusters by frequency using \code{\link[=sort_clusters]{sort_clusters()}}.}
+the clusters by frequency using \code{\link[=sort_clusters]{sort_clusters()}}. Defuault \code{FALSE}.}
 
 \item{colors}{A vector of colors to use for visualizing the clusters
 from \code{clustervar}. If the vector has names, then those should match the
@@ -88,8 +89,13 @@ specifying which spots to exclude from the plot. Sets \code{auto_crop = FALSE}.}
 \item{guide_point_size}{A \code{numeric(1)} specifying the size of the points in
 guide. Defaults to \code{point_size}. Increase to improve visability.}
 
-\item{...}{Passed to \link[base:paste]{paste0()} for making the title of the
-plot following the \code{sampleid}.}
+\item{guides}{A \code{character(1)} specifying which guides to print. Defaults to
+\code{all} which plots all guides. \code{last} prints a guide for only on the last
+sample. \code{none} prints no guides with the plots, but prints a guide on
+separate page.}
+
+\item{title_suffix}{A \code{character(1)} passed to \link[base:paste]{paste()} to
+modify the title of the plot following the \code{sampleid}.}
 }
 \value{
 A list of \link[ggplot2:ggplot]{ggplot2} objects.
diff --git a/man/vis_grid_gene.Rd b/man/vis_grid_gene.Rd
index 647cdce9..09dceda3 100644
--- a/man/vis_grid_gene.Rd
+++ b/man/vis_grid_gene.Rd
@@ -24,8 +24,7 @@ vis_grid_gene(
   auto_crop = TRUE,
   na_color = "#CCCCCC40",
   is_stitched = FALSE,
-  cap_percentile = 1,
-  ...
+  cap_percentile = 1
 )
 }
 \arguments{
@@ -107,9 +106,6 @@ percentile (as a proportion) at which to cap expression. For example, a value
 of 0.95 sets the top 5\% of expression values to the 95th percentile value.
 This can help make the color scale more dynamic in the presence of high
 outliers. Defaults to \code{1}, which effectively performs no capping.}
-
-\item{...}{Passed to \link[base:paste]{paste0()} for making the title of the
-plot following the \code{sampleid}.}
 }
 \value{
 A list of \link[ggplot2:ggplot]{ggplot2} objects.
diff --git a/vignettes/spatialLIBD.Rmd b/vignettes/spatialLIBD.Rmd
index 15e2ef54..167e8aa5 100644
--- a/vignettes/spatialLIBD.Rmd
+++ b/vignettes/spatialLIBD.Rmd
@@ -294,7 +294,7 @@ vis_clus(
     clustervar = "layer_guess_reordered",
     sampleid = "151673",
     colors = libd_layer_colors,
-    ... = " LIBD Layers"
+    title_suffix = "LIBD Layers"
 )
 ```
 
@@ -319,7 +319,7 @@ vis_clus(
     clustervar = "layer_guess_reordered",
     sampleid = "151673",
     colors = libd_layer_colors,
-    ... = " LIBD Layers",
+    title_suffix = "LIBD Layers",
     spatial = FALSE
 )
 ```