Leonardo, boa tarde! Fiquei na dúvida quanto ao uso de as.ordered() e rodei um pequeno teste. Parece funcionar do mesmo modo que com as.factor(). ### <code r> getwd() url0 <- " ftp://geoftp.ibge.gov.br/malhas_digitais/municipio_2007/escala_2500mil/proj_geografica_sirgas2000/uf/mt/51mu2500gsr.zip " bName <- sub(".zip$", "", basename(url0)) setInternet2(FALSE) ### download a partir de ftp no RStudio Windows if (!file.exists(basename(url0))) download.file(url0, dest=basename(url0), mode="wb") unzip(basename(url0), list=T) ### conteúdo do zip unzip(basename(url0)) require(rgdal) mt <- readOGR(dsn=paste0(bName,".shp"), layer=bName, encoding="latin1") str(mt, max=2) plot(mt) head(mt@data) n <- nrow(mt@data); n set.seed(756); x <- sample(LETTERS[1:3], size = n, replace=T) mt@data$X1 <- as.factor(x) mt@data$X2 <- as.ordered(x) str(mt@data) head(mt@data) spplot(mt, "X1", col.regions=heat.colors(3)) spplot(mt, "X2", col.regions=heat.colors(3)) ### </code> Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]