Pessoal plotei um arquivo shapfile de um mapa do Estado da Paraíba. Esse mapa apresente 16 regiões e cada região eu quero pintar com uma cor diferente (verde, azul, amarelo), corres não sequenciais. Estou conseguindo pintar os poligonos de cada região em separado. Criei uma variável no banco de dados (DBF) em que classifico o município enter 1 a 16. O comando abaixo eu consigo pintar de vermelho aqueles municípios que tem a variável dados_regionais igual à 1 e de azul os que tem a variável igual à 2. plot(mapa, col=ifelse(dados_regionais == 1, "red", "white"), axes = "TRUE") plot(mapa, col=ifelse(dados_regionais == 2, "blue", "white"), axes = "TRUE") O problema é que a cada plot tenho um mapa diferente. Como destacar esses municípios em um mesmo mapa? -- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
Não seria só criar uma coluna "cores" que associa uma única cor a cada valor do conjunto 1:16 e passar para o argumento col= da plot()? Pois com o ifelse() você tá criando uma coluna de 2 cores, então faça com as 16. Será que resolve? À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================
Rafael A deia é criar um vetor de cores que quer utilizar da mesma dimansao das suas unidades e passar isto para o argumento col Veja um exemplo simplificado usando dados do pacote spdep require(sp) require(spdep) require(classInt) require(RColorBrewer) ## Carregando os dados (atributos e geometria de polygonos) disponíveis no pacote spdep ## lendo dados tipo shapefiles auckland <- readShapePoly(system.file("etc/shapes/auckland.shp", package="spdep")[1]) ## calclando a variável que se quer represetnar pelas cores tx <- 1000*auckland$M77_85/(9*auckland$Und5_81) ## dividindo dados em classes (usando pacote classInt) ## veja ?classIntervals (txINT<- classIntervals(tx, n=7)) ## criando uma palheta de cores (usando pacote RColorBrewer) de azul para vermelho PAL <- c(rev(brewer.pal(3, "Blues")), brewer.pal(4, "Reds")) ## atribuindo as cores adequadas a cada grupo cols <- findColours(txINT, PAL) plot(auckland, col=cols) Em Ter, 2011-11-15 às 15:21 -0300, Pedro Rafael escreveu:
Pessoal plotei um arquivo shapfile de um mapa do Estado da Paraíba. Esse mapa apresente 16 regiões e cada região eu quero pintar com uma cor diferente (verde, azul, amarelo), corres não sequenciais. Estou conseguindo pintar os poligonos de cada região em separado. Criei uma variável no banco de dados (DBF) em que classifico o município enter 1 a 16. O comando abaixo eu consigo pintar de vermelho aqueles municípios que tem a variável dados_regionais igual à 1 e de azul os que tem a variável igual à 2.
plot(mapa, col=ifelse(dados_regionais == 1, "red", "white"), axes = "TRUE") plot(mapa, col=ifelse(dados_regionais == 2, "blue", "white"), axes = "TRUE")
O problema é que a cada plot tenho um mapa diferente. Como destacar esses municípios em um mesmo mapa?
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
_______________________________________________ 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.
-- Paulo Justiniano Ribeiro Jr LEG (Laboratorio de Estatistica e Geoinformacao) Universidade Federal do Parana Caixa Postal 19.081 CEP 81.531-990 Curitiba, PR - Brasil Tel: (+55) 41 3361 3573 VOIP: (+55) (41) (3361 3600) 1053 1066 Fax: (+55) 41 3361 3141 e-mail: paulojus AT ufpr br http://www.leg.ufpr.br/~paulojus
O único problema é que preciso de 16 classes e o classInt só faz 14 classes. Existe alguma forma de contornar isto? Em 16 de novembro de 2011 16:48, Paulo Justiniano [via R-br] < ml-node+s2285057n4077646h3@n4.nabble.com> escreveu:
Rafael
A deia é criar um vetor de cores que quer utilizar da mesma dimansao das suas unidades e passar isto para o argumento col
Veja um exemplo simplificado usando dados do pacote spdep
require(sp) require(spdep) require(classInt) require(RColorBrewer)
## Carregando os dados (atributos e geometria de polygonos) disponíveis no pacote spdep ## lendo dados tipo shapefiles auckland <- readShapePoly(system.file("etc/shapes/auckland.shp", package="spdep")[1])
## calclando a variável que se quer represetnar pelas cores tx <- 1000*auckland$M77_85/(9*auckland$Und5_81)
## dividindo dados em classes (usando pacote classInt) ## veja ?classIntervals (txINT<- classIntervals(tx, n=7))
## criando uma palheta de cores (usando pacote RColorBrewer) de azul para vermelho PAL <- c(rev(brewer.pal(3, "Blues")), brewer.pal(4, "Reds"))
## atribuindo as cores adequadas a cada grupo cols <- findColours(txINT, PAL) plot(auckland, col=cols)
Em Ter, 2011-11-15 às 15:21 -0300, Pedro Rafael escreveu:
Pessoal plotei um arquivo shapfile de um mapa do Estado da Paraíba. Esse mapa apresente 16 regiões e cada região eu quero pintar com uma cor diferente (verde, azul, amarelo), corres não sequenciais. Estou conseguindo pintar os poligonos de cada região em separado. Criei uma variável no banco de dados (DBF) em que classifico o município enter 1 a 16. O comando abaixo eu consigo pintar de vermelho aqueles municípios que tem a variável dados_regionais igual à 1 e de azul os que tem a variável igual à 2.
plot(mapa, col=ifelse(dados_regionais == 1, "red", "white"), axes = "TRUE") plot(mapa, col=ifelse(dados_regionais == 2, "blue", "white"), axes = "TRUE")
O problema é que a cada plot tenho um mapa diferente. Como destacar esses municípios em um mesmo mapa?
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4077646&i=0> 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.
-- Paulo Justiniano Ribeiro Jr LEG (Laboratorio de Estatistica e Geoinformacao) Universidade Federal do Parana Caixa Postal 19.081 CEP 81.531-990 Curitiba, PR - Brasil Tel: (+55) 41 3361 3573 VOIP: (+55) (41) (3361 3600) 1053 1066 Fax: (+55) 41 3361 3141 e-mail: paulojus AT ufpr br http://www.leg.ufpr.br/~paulojus
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4077646&i=1> 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.
------------------------------ If you reply to this email, your message will be added to the discussion below:
http://r-br.2285057.n4.nabble.com/R-br-Duvida-Pintar-polygono-de-Mapa-tp4073... To unsubscribe from R-br, click here<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=cGVkcm8ucmFmYWVsLm1hcmluaG9AZ21haWwuY29tfDMzNTc5ODJ8NTAyMjI0MDYw> . NAML<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.InstantMailNamespace&breadcrumbs=instant+emails%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
Como eu poderia associar um vetor que criei com 16 cores aos dados? Eu tenho dados que variam de 1 a 16, e gostaria que os municípios que fossem 1 ficassem um uma cor, os que fossem 2 com outra e isso até 16. Não quero dividir em intervalos de classes, preciso que o mapa tenha 16 cores distintas. Obrigado a todos desde já. Obrigado Paulo pelas dicas. Em 17 de novembro de 2011 09:27, Pedro Rafael < pedro.rafael.marinho@gmail.com> escreveu:
O único problema é que preciso de 16 classes e o classInt só faz 14 classes. Existe alguma forma de contornar isto?
Em 16 de novembro de 2011 16:48, Paulo Justiniano [via R-br] < ml-node+s2285057n4077646h3@n4.nabble.com> escreveu:
Rafael
A deia é criar um vetor de cores que quer utilizar da mesma dimansao das suas unidades e passar isto para o argumento col
Veja um exemplo simplificado usando dados do pacote spdep
require(sp) require(spdep) require(classInt) require(RColorBrewer)
## Carregando os dados (atributos e geometria de polygonos) disponíveis no pacote spdep ## lendo dados tipo shapefiles auckland <- readShapePoly(system.file("etc/shapes/auckland.shp", package="spdep")[1])
## calclando a variável que se quer represetnar pelas cores tx <- 1000*auckland$M77_85/(9*auckland$Und5_81)
## dividindo dados em classes (usando pacote classInt) ## veja ?classIntervals (txINT<- classIntervals(tx, n=7))
## criando uma palheta de cores (usando pacote RColorBrewer) de azul para vermelho PAL <- c(rev(brewer.pal(3, "Blues")), brewer.pal(4, "Reds"))
## atribuindo as cores adequadas a cada grupo cols <- findColours(txINT, PAL) plot(auckland, col=cols)
Em Ter, 2011-11-15 às 15:21 -0300, Pedro Rafael escreveu:
Pessoal plotei um arquivo shapfile de um mapa do Estado da Paraíba. Esse mapa apresente 16 regiões e cada região eu quero pintar com uma cor diferente (verde, azul, amarelo), corres não sequenciais. Estou conseguindo pintar os poligonos de cada região em separado. Criei uma variável no banco de dados (DBF) em que classifico o município enter 1 a 16. O comando abaixo eu consigo pintar de vermelho aqueles municípios que tem a variável dados_regionais igual à 1 e de azul os que tem a variável igual à 2.
plot(mapa, col=ifelse(dados_regionais == 1, "red", "white"), axes = "TRUE") plot(mapa, col=ifelse(dados_regionais == 2, "blue", "white"), axes = "TRUE")
O problema é que a cada plot tenho um mapa diferente. Como destacar esses municípios em um mesmo mapa?
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4077646&i=0> 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.
-- Paulo Justiniano Ribeiro Jr LEG (Laboratorio de Estatistica e Geoinformacao) Universidade Federal do Parana Caixa Postal 19.081 CEP 81.531-990 Curitiba, PR - Brasil Tel: (+55) 41 3361 3573 VOIP: (+55) (41) (3361 3600) 1053 1066 Fax: (+55) 41 3361 3141 e-mail: paulojus AT ufpr br http://www.leg.ufpr.br/~paulojus
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4077646&i=1> 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.
------------------------------ If you reply to this email, your message will be added to the discussion below:
http://r-br.2285057.n4.nabble.com/R-br-Duvida-Pintar-polygono-de-Mapa-tp4073... To unsubscribe from R-br, click here<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=cGVkcm8ucmFmYWVsLm1hcmluaG9AZ21haWwuY29tfDMzNTc5ODJ8NTAyMjI0MDYw> . NAML<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.InstantMailNamespace&breadcrumbs=instant+emails%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
Pedro o uso do classInt nao é obrigatóriuo foi só um exemplo para atribuir as cores voce tem apenas 16 valores diferentes de 1 a 16, digamos supondo que sim poderia fazer, se tiver um vetor VAL com estes valores entre 1 e 16 col= PAL[VAL] onde PAL é o vetor com a palheta de 16 cores e VAL o vetor c om os valores Em Qui, 2011-11-17 às 09:27 -0300, Pedro Rafael escreveu:
O único problema é que preciso de 16 classes e o classInt só faz 14 classes. Existe alguma forma de contornar isto?
Em 16 de novembro de 2011 16:48, Paulo Justiniano [via R-br] <ml-node +s2285057n4077646h3@n4.nabble.com> escreveu: Rafael
A deia é criar um vetor de cores que quer utilizar da mesma dimansao das suas unidades e passar isto para o argumento col
Veja um exemplo simplificado usando dados do pacote spdep
require(sp) require(spdep) require(classInt) require(RColorBrewer)
## Carregando os dados (atributos e geometria de polygonos) disponíveis no pacote spdep ## lendo dados tipo shapefiles auckland <- readShapePoly(system.file("etc/shapes/auckland.shp", package="spdep")[1])
## calclando a variável que se quer represetnar pelas cores tx <- 1000*auckland$M77_85/(9*auckland$Und5_81)
## dividindo dados em classes (usando pacote classInt) ## veja ?classIntervals (txINT<- classIntervals(tx, n=7))
## criando uma palheta de cores (usando pacote RColorBrewer) de azul para vermelho PAL <- c(rev(brewer.pal(3, "Blues")), brewer.pal(4, "Reds"))
## atribuindo as cores adequadas a cada grupo cols <- findColours(txINT, PAL) plot(auckland, col=cols)
Em Ter, 2011-11-15 às 15:21 -0300, Pedro Rafael escreveu:
> Pessoal plotei um arquivo shapfile de um mapa do Estado da Paraíba. > Esse mapa apresente 16 regiões e cada região eu quero pintar com uma > cor diferente (verde, azul, amarelo), corres não sequenciais. Estou > conseguindo pintar os poligonos de cada região em separado. Criei uma > variável no banco de dados (DBF) em que classifico o município enter 1 > a 16. O comando abaixo eu consigo pintar de vermelho aqueles > municípios que tem a variável dados_regionais igual à 1 e de azul os > que tem a variável igual à 2. > > plot(mapa, col=ifelse(dados_regionais == 1, "red", "white"), axes = > "TRUE") > plot(mapa, col=ifelse(dados_regionais == 2, "blue", "white"), axes = > "TRUE") > > O problema é que a cada plot tenho um mapa diferente. Como destacar > esses municípios em um mesmo mapa? > > -- > Saudações, > Pedro Rafael Diniz Marinho. > Estatístico - Secretaria de Estado da Saúde - PB. > > >
> _______________________________________________ > R-br mailing list > [hidden email] > 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.
-- Paulo Justiniano Ribeiro Jr LEG (Laboratorio de Estatistica e Geoinformacao) Universidade Federal do Parana Caixa Postal 19.081 CEP 81.531-990 Curitiba, PR - Brasil Tel: (+55) 41 3361 3573 VOIP: (+55) (41) (3361 3600) 1053 1066 Fax: (+55) 41 3361 3141 e-mail: paulojus AT ufpr br http://www.leg.ufpr.br/~paulojus
_______________________________________________ R-br mailing list [hidden email] 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.
______________________________________________________________ If you reply to this email, your message will be added to the discussion below: http://r-br.2285057.n4.nabble.com/R-br-Duvida-Pintar-polygono-de-Mapa-tp4073... To unsubscribe from R-br, click here. NAML
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
_______________________________________________ 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.
participantes (3)
-
Paulo J Ribeiro Jr -
Pedro Rafael -
Walmes Zeviani