Cleanup of plotLabel()

[Bisaloo]

x <- SpatialData.data::ColorectalCarcinomaMIBITOF()

library(SpatialData.plot)
#> Loading required package: SpatialData
#> 
#> Attaching package: 'SpatialData'
#> The following object is masked from 'package:utils':
#> 
#>     data
#> The following objects are masked from 'package:base':
#> 
#>     labels, scale, sequence, table, transform
p1 <- plotSpatialData() + plotImage(x, 3)
p2 <- plotSpatialData() + plotLabel(x, 3, c="Cluster", pal = grDevices::palette.colors(9))

library(patchwork)
p1 + p2

^{Created on 2026-04-28 with reprex v2.1.1}