@@ -235,7 +235,7 @@ pa <- unzip_spd_demo(
235235``` {r mibitof-plot, fig.width=10, fig.height=3}
236236pal <- hcl.colors(8, "Spectral")
237237wrap_plots(nrow=1, lapply(seq(3), \(.)
238- plotSpatialData() + plotImage(x, .) +
238+ plotSpatialData() + plotImage(x, .) +
239239 plotLabel(x, ., "Cluster", pal=pal))) +
240240 plot_layout(guides="collect")
241241```
@@ -263,7 +263,8 @@ Plotting with multiple image channels:
263263``` {r mcmicro-plot}
264264plotSpatialData() + plotImage(x,
265265 ch=c("DNA_6", "CD45", "CD57"),
266- c=c("blue", "cyan", "yellow"))
266+ c=c("blue", "cyan", "yellow"),
267+ cl=list(NULL, c(0, 0.1), NULL))
267268```
268269
269270## IMC (Steinbock)
@@ -299,7 +300,7 @@ lapply(list(c(0.2, 1), c(0, 0.8), c(0, 1.2)), \(.) {
299300 cl=list(1, 1, .),
300301 c=c("blue", "cyan", "yellow")) +
301302 ggtitle(sprintf("[%s, %s]", .[1], .[2]))
302- }) |> wrap_plots(nrow=1)
303+ }) |> wrap_plots(nrow=1) + plot_layout(guides="collect")
303304```
304305
305306# Masking
@@ -331,6 +332,7 @@ lapply(names(c <- c(a="red", b="blue")), \(.)
331332``` {r plot-mask-two, fig.width=8, fig.height=3.5}
332333# compute channel-wise means
333334i <- "blobs_labels"
335+ table(x) <- NULL
334336x <- mask(x, "blobs_image", i, fun=mean)
335337(t <- getTable(x, i))
336338# visualize side-by-side
0 commit comments