Que bom, então!
 
Leonardo Ferreira Fontenelle
 
 
Em Ter 21 abr. 2015, às 17:44, Éder Comunello escreveu:
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 <comunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
 
 
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.