Flip coordinates in plotImage()

[Bisaloo]

Alternative to #21

library(SpatialData.plot)
#> Loading required package: SpatialData
#> 
#> Attaching package: 'SpatialData'
#> The following object is masked from 'package:stats':
#> 
#>     filter
#> The following object is masked from 'package:utils':
#> 
#>     data
#> The following objects are masked from 'package:base':
#> 
#>     labels, scale, sequence, table, transform

sd <- SpatialData.data::LungAdenocarcinomaMCMICRO()
sp <- crop(sd, list(
  xmin=0, xmax=2500,
  ymin=600, ymax=3200))
# original
plotSpatialData() + plotImage(sd,
  ch=c("CD16", "CD45", "FOXP3", "DNA_7", "ECAD", "SMA"),
  c=c("cyan", "magenta", "yellow", "blue", "green", "red"))

# cropped
plotSpatialData() + plotImage(sp,
  ch=c("CD16", "CD45", "FOXP3", "DNA_7", "ECAD", "SMA"),
  c=c("cyan", "magenta", "yellow", "blue", "green", "red"))

^{Created on 2026-05-06 with reprex v2.1.1}