library(terra)
# Create example data (with a few NA's introduced)
r1 <- rast(nrows=100, ncol=100)
names(r1) <- "LC1"
r1[] <- round(runif(ncell(r1), 1,4),0)
r1[c(8,10,50,100)] <- NA
r2 <- rast(nrows=100, ncol=100)
names(r2) <- "LC2"
r2[] <- round(runif(ncell(r2), 2,6),0)
r2[c(10,50,100)] <- NA
r3 <- rast(nrows=100, ncol=100)
names(r3) <- "LC3"
r3[] <- round(runif(ncell(r3), 2,6),0)
r3[c(10,50,100)] <- NA
r <- c(r1,r2,r3)
names(r) <- c("LC1","LC2","LC3")
# Combine rasters with a multilayer stack
cr <- combine(r)
head(cr$summary)
plot(cr$combine)
# or, from separate layers
cr <- combine(c(r1,r3))
Run the code above in your browser using DataLab