<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>O exemplo funcionou perfeitamente! A Rosa dos Ventos ficou demais!</span></div><div><span>É interessante fazer isto para mapas do Brasil!</span></div><div><br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; margin-top: 5px; padding-left: 5px;"> <div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "> <div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Pedro Henrique Melo Albuquerque <pedro.melo.albuquerque@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Sexta-feira, 2 de Março de 2012 20:49<br>
<b><span style="font-weight: bold;">Assunto:</span></b> [R-br] RES: RES: Rosa dos Ventos<br> </font> </div> <br><meta http-equiv="x-dns-prefetch-control" content="off"><div id="yiv1183686482">
<style><!--
#yiv1183686482
_filtered #yiv1183686482 {font-family:Calibri;panose-1:2 15 5 2 2 2 4 3 2 4;}
_filtered #yiv1183686482 {font-family:Tahoma;panose-1:2 11 6 4 3 5 4 4 2 4;}
#yiv1183686482
#yiv1183686482 p.yiv1183686482MsoNormal, #yiv1183686482 li.yiv1183686482MsoNormal, #yiv1183686482 div.yiv1183686482MsoNormal
{margin:0in;margin-bottom:.0001pt;font-size:12.0pt;font-family:"serif";color:black;}
#yiv1183686482 a:link, #yiv1183686482 span.yiv1183686482MsoHyperlink
{color:blue;text-decoration:underline;}
#yiv1183686482 a:visited, #yiv1183686482 span.yiv1183686482MsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
#yiv1183686482 p.yiv1183686482MsoAcetate, #yiv1183686482 li.yiv1183686482MsoAcetate, #yiv1183686482 div.yiv1183686482MsoAcetate
{margin:0in;margin-bottom:.0001pt;font-size:8.0pt;font-family:"sans-serif";color:black;}
#yiv1183686482 span.yiv1183686482EstiloDeEmail17
{font-family:"serif";color:windowtext;}
#yiv1183686482 span.yiv1183686482EstiloDeEmail18
{font-family:"serif";color:windowtext;}
#yiv1183686482 span.yiv1183686482TextodebaloChar
{font-family:"sans-serif";color:black;}
#yiv1183686482 .yiv1183686482MsoChpDefault
{font-size:10.0pt;}
_filtered #yiv1183686482 {margin:1.0in 1.0in 1.0in 1.0in;}
#yiv1183686482 div.yiv1183686482WordSection1
{}
--></style><div><div class="yiv1183686482WordSection1"><div class="yiv1183686482MsoNormal"><span lang="PT-BR" style="font-size:11.0pt;color:windowtext;">Mauro,</span></div><div class="yiv1183686482MsoNormal"><span lang="PT-BR" style="font-size:11.0pt;color:windowtext;">Instale o pacote spdep e tente novamente.</span></div><div class="yiv1183686482MsoNormal"><span lang="PT-BR" style="font-size:11.0pt;color:windowtext;">Caso queira fazer de maneira direta você pode baixar o shapefile nesse link: <a rel="nofollow" target="_blank" href="http://geodacenter.org/downloads/data-files/columbus.zip">http://geodacenter.org/downloads/data-files/columbus.zip</a></span></div><div class="yiv1183686482MsoNormal"><span lang="PT-BR" style="font-size:11.0pt;color:windowtext;"> </span></div><div class="yiv1183686482MsoNormal"><span lang="PT-BR" style="font-size:11.0pt;color:windowtext;"> </span></div><div><div style="border:none;border-top:solid #B5C4DF
1.0pt;padding:3.0pt 0in 0in 0in;"><div class="yiv1183686482MsoNormal"><b><span lang="PT-BR" style="font-size: 10pt; color: windowtext; font-family: sans-serif; ">De:</span></b><span lang="PT-BR" style="font-size: 10pt; color: windowtext; font-family: sans-serif; "> r-br-bounces@listas.c3sl.ufpr.br [mailto:r-br-bounces@listas.c3sl.ufpr.br] <b>Em nome de </b>Mauro Sznelwar<br><b>Enviada em:</b> Friday, March 02, 2012 8:44 PM<br><b>Para:</b> r-br@listas.c3sl.ufpr.br<br><b>Assunto:</b> Re: [R-br] RES: Rosa dos Ventos</span></div></div></div><div class="yiv1183686482MsoNormal"> </div><div><div class="yiv1183686482MsoNormal"><span style="font-size: 10pt; font-family: sans-serif; ">Eu tentei rodar este exemplo e não consegui! Já deu erro no terceiro comando:</span></div></div><div><div class="yiv1183686482MsoNormal"><span style="font-size: 10pt; font-family: sans-serif; ">columbus <- readShapePoly(system.file("etc/shapes/columbus.shp",
package="spdep")[1])<br>Erro em getinfo.shape(filen) : Error opening SHP file</span></div></div><div><div class="yiv1183686482MsoNormal"> </div></div><blockquote style="border:none;border-left:solid black 1.5pt;padding:0in 0in 0in 4.0pt;margin-left:3.75pt;margin-top:5.0pt;margin-right:0in;margin-bottom:5.0pt;"><div><div class="yiv1183686482MsoNormal"><span style="font-size: 10pt; font-family: sans-serif; "> </span></div></div><div class="yiv1183686482MsoNormal">Jodavid,<br>Rodei o exemplo do Pedro no meu PC e funcionou. Observe que a função "RosaDosVentos (c(5,13),0.4)" substitua o valor 5 por 6.5 que aparecera a Rosa dos ventos<br><br>Humberto<br><br><br>Em 3/2/2012 6:30 PM, Pedro Henrique Melo Albuquerque escreveu: </div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">Jodavid,</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">Segue um exemplo:</span></div><div
class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">require(maptools)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">require(classInt)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">columbus <- readShapePoly(system.file("etc/shapes/columbus.shp", package="spdep")[1])</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">mypal <- c("wheat1", "red3")</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">f5 <- classIntervals(columbus$CRIME, n=5, style="fisher")</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">f5Colours <- findColours(f5, mypal)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">plot(columbus, col=f5Colours,border ="black", axes = TRUE)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">title(main="Criminalidade em
Columbus.",xlab="Longitude",ylab="Latitude")</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">RosaDosVentos <- function(loc,size,bearing=0,cols,cex=1,...)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">{</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> if(missing(loc)) stop("loc is missing")</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> if(missing(size)) stop("size is missing")</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> if(missing(cols)) cols <- rep(c("white","black"),8)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> radii <- rep(size/c(1,4,2,4),4)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> x <- radii[(0:15)+1]*cos((0:15)*pi/8+bearing)+loc[1]</span></div><div
class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> y <- radii[(0:15)+1]*sin((0:15)*pi/8+bearing)+loc[2]</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> for (i in 1:15)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">{</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> x1 <- c(x[i],x[i+1],loc[1])</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> y1 <- c(y[i],y[i+1],loc[2])</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> polygon(x1,y1,col=cols[i])</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> }</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> polygon(c(x[16],x[1],loc[1]),c(y[16],y[1],loc[2]),col=cols[16])</span></div><div
class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> b <- c("L","N","O","S")</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> for (i in 0:3) text((size+par("cxy")[1])*cos(bearing+i*pi/2)+loc[1],</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;"> (size+par("cxy")[2])*sin(bearing+i*pi/2)+loc[2],b[i+1],cex=cex)</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">}</span></div><div class="yiv1183686482MsoNormal"><span style="font-size:11.0pt;">RosaDosVentos (c(5,13),0.4)</span></div><div class="yiv1183686482MsoNormal"><span lang="PT-BR" style="font-size:11.0pt;">Por favor, informe se funcionou.</span></div><div class="yiv1183686482MsoNormal"><span lang="PT-BR" style="font-size:11.0pt;">Grande abraço.</span></div><div class="yiv1183686482MsoNormal"><span lang="PT-BR" style="font-size:11.0pt;">Pedro</span></div><div
class="yiv1183686482MsoNormal"><b><span lang="PT-BR" style="font-size: 10pt; font-family: sans-serif; ">De:</span></b><span lang="PT-BR" style="font-size: 10pt; font-family: sans-serif; "> <a rel="nofollow" ymailto="mailto:r-br-bounces@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br-bounces@listas.c3sl.ufpr.br">r-br-bounces@listas.c3sl.ufpr.br</a> [<a rel="nofollow" ymailto="mailto:r-br-bounces@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br-bounces@listas.c3sl.ufpr.br">mailto:r-br-bounces@listas.c3sl.ufpr.br</a>] <b>Em nome de </b>Jodavid Ferreira<br><b>Enviada em:</b> Friday, March 02, 2012 3:13 PM<br><b>Para:</b> <a rel="nofollow" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a><br><b>Assunto:</b> Re: [R-br] Rosa dos Ventos</span></div><div><div class="yiv1183686482MsoNormal">Olá Pedro, Eu estou até entendendo o seu código.</div><div><div
class="yiv1183686482MsoNormal">Mas ainda não consegui colocar a Rosa dos Ventos.</div></div><div><div class="yiv1183686482MsoNormal">O problema está, em como fazer ela aparecer na plotagem.</div></div><div><div class="yiv1183686482MsoNormal">se ela vai como legenda...</div></div><div><div class="yiv1183686482MsoNormal">se você puder me enviar algum exemplo dela funcionando agradeceria bastante.</div></div><div><div class="yiv1183686482MsoNormal">abraço,</div></div><div><div><div class="yiv1183686482MsoNormal">Em 27 de fevereiro de 2012 14:01, Jodavid Ferreira <<a rel="nofollow" ymailto="mailto:jodavid.arts@gmail.com" target="_blank" href="mailto:jodavid.arts@gmail.com">jodavid.arts@gmail.com</a>> escreveu:</div><div><div class="yiv1183686482MsoNormal">Olá Pedro,</div><div><div class="yiv1183686482MsoNormal">Rodei seu código,ok. Mas não estou conseguindo visualizar a Rosa.</div></div><div><div class="yiv1183686482MsoNormal">Não estou
conseguindo coloca-la no mapa, ou até mesmo, plotá-la.</div><div><div class="yiv1183686482MsoNormal"><br clear="all"></div><div class="yiv1183686482MsoNormal">-- <br>Jodavid Ferreira<br>Responsável pela comissão de Comunicação do MJ da RCCPB - <a rel="nofollow" target="_blank" href="http://jovem.rccpb.com.br">http://jovem.rccpb.com.br</a><br>Responsável pela comissão de Comunicação e do Ministério Jovem do Grupo de Oração Boa Esperança - <a rel="nofollow" target="_blank" href="http://grupoboaesperanca.com">http://grupoboaesperanca.com</a><br>Bacharelando em Estatística - UFPB<br>Estagiário no Laboratório de Estatística Aplicada ao Processamento de Imagens e Geoprocessamento - <a rel="nofollow" target="_blank" href="http://de.ufpb.br/%7Eleapig">http://de.ufpb.br/~leapig</a><br><a rel="nofollow" target="_blank" href="http://jodavidferreira.com">http://jodavidferreira.com</a></div></div></div></div></div><div
class="yiv1183686482MsoNormal"><br><br clear="all"></div><div class="yiv1183686482MsoNormal">-- </div><div><div class="yiv1183686482MsoNormal">Jodavid Ferreira<br>Responsável pela comissão de Comunicação do MJ da RCCPB - <a rel="nofollow" target="_blank" href="http://jovem.rccpb.com.br">http://jovem.rccpb.com.br</a><br>Responsável pelo Ministério Jovem e de Comunicação do Grupo de Oração Boa Esperança - <a rel="nofollow" target="_blank" href="http://grupoboaesperanca.com">http://grupoboaesperanca.com</a><br>Bacharelando em Estatística - UFPB<br>Estagiário no Laboratório de Estatística Aplicada ao Processamento de Imagens e Geoprocessamento - <a rel="nofollow" target="_blank" href="http://de.ufpb.br/%7Eleapig">http://de.ufpb.br/~leapig</a><br>Site Pessoal - <a rel="nofollow" target="_blank" href="http://jodavidferreira.com">http://jodavidferreira.com</a></div></div></div></div><div
class="yiv1183686482MsoNormal"><br> </div></blockquote></div></div></div><meta http-equiv="x-dns-prefetch-control" content="on"><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br> </div> </div> </blockquote></div> </div></body></html>