OTBsegm is an R package that provides a
user-friendly interface to the unsupervised image segmentation
algorithms available in Orfeo
ToolBox (OTB), a powerful open-source library for remote sensing
image processing. OTBsegm is built on top of link2GI
R
package, providing easy access to image segmentation algorithms.
To use {OTBsegm
}, you must first install OTB on your
machine. Once OTB is installed and properly linked through
{link2GI
} (see examples), this package allows you to easily
integrate OTB’s segmentation algorithms into your workflows.
You can install the development version of OTBsegm from GitHub with:
# install.packages("pak")
::pak("Cidree/OTBsegm") pak
We will see how to segment an image included in the package:
## load packages
library(link2GI)
library(OTBsegm)
library(terra)
#> Warning: package 'terra' was built under R version 4.4.3
#> terra 1.8.29
## load image
<- rast(system.file("raster/pnoa.tiff", package = "OTBsegm"))
image_sr
## visualize
plotRGB(image_sr)
The image is a 500x500 meters RGB tile, with a spatial resolution of 15 cm in Galicia, Spain. The meanshift algorithm has the next important arguments:
spatialr: spatial radius of the neighborhood
ranger: range radius defining the radius (expressed in radiometry unit) in the multispectral space
minsize: minimum size of a region (in pixel
unit) in segmentation. Smaller clusters will be merged to the
neighboring cluster with the closest radiometry. If set to 0 no pruning
is done. The image’s resolution is 1.2 m, therefore, a value of
minsize = 10
means that the smallest segment will be \(10 * 1.2^2 = 14.4 m^2\).
In order to use the algorithms, we need to link our OTB installation
using {link2GI
}:
<- link2GI::linkOTB(searchLocation = "C:/OTB/") otblink
Once we are connected, we can apply the segmentation algorithm and visualize the results:
<- segm_meanshift(
results_ms_sf image = image_sr,
otb = otblink,
spatialr = 5,
ranger = 25,
maxiter = 10,
minsize = 10
)#> Reading layer `filecfc6b37181f' from data source
#> `C:\Users\User\AppData\Local\Temp\RtmpAjZLFx\filecfc6b37181f.shp'
#> using driver `ESRI Shapefile'
#> Simple feature collection with 811 features and 1 field
#> Geometry type: POLYGON
#> Dimension: XY
#> Bounding box: xmin: 621000 ymin: 4708385 xmax: 621300 ymax: 4708685
#> Projected CRS: ETRS89 / UTM zone 29N
plotRGB(image_sr)
plot(sf::st_geometry(results_ms_sf), add = TRUE)