r <- raster(nrow=10, ncol=10)
r[] <- (runif(ncell(r)) * 10)
is.factor(r)
r
r <- asFactor(r)
is.factor(r)
labels(r)
labels(r) <- letters[1:length(labels(r))]
labels(r)
r
r <- as.numeric(r)
is.factor(r)
s <- stack(r, r)
s <- asFactor(s, 2)
is.factor(s)
Run the code above in your browser using DataCamp Workspace