f <- system.file("ex/logo.tif", package = "terra")
r <- rast(f)
# locations of interest
pts <- vect(cbind(c(25.25, 34.324, 43.003), c(54.577, 46.489, 30.905)))
pts$code <- LETTERS[1:3]
plot(r)
points(pts, pch=20, cex=2, col="red")
text(pts, "code", pos=4, halo=TRUE)
x <- scale(r)
s1 <- bestMatch(x, pts, labels=pts$code)
plot(s1)
# same result
e <- extract(x, pts, ID=FALSE)
s2 <- bestMatch(x, e, labels=c("Ap", "Nt", "Ms"))
Run the code above in your browser using DataLab