Support WNN in final DimPlots

Author: bbimber

singlecell/resources/chunks/DimPlots.R

@@ -10,8 +10,14 @@ for (datasetId in names(seuratObjects)) {
         P1 <- Seurat::DimPlot(seuratObj, group.by = field, reduction = 'tsne')
         P2 <- Seurat::DimPlot(seuratObj, group.by = field, reduction = 'umap')
 
-        P1 <- P1 | P2
-        P1 <- P1 + patchwork::plot_annotation(title = field)
+        if ('wnn.umap' %in% names(seuratObj@reductions)) {
+            P3 <- Seurat::DimPlot(seuratObj, group.by = field, reduction = 'wnn.umap')
+            P1 <- P1 | P2 | P3
+        } else {
+            P1 <- P1 | P2
+        }
+
+        P1 <- P1 + patchwork::plot_annotation(title = field) + patchwork::plot_layout(guides = "collect")
     }
 
     # Cleanup