<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
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:
<blockquote cite="mid:009c01ccf8bb$af8d7d40$0ea877c0$@gmail.com"
type="cite">
<meta http-equiv="Content-Type" content="text/html;
charset=ISO-8859-1">
<meta name="Generator" content="Microsoft Word 14 (filtered
medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EstiloDeEmail17
{mso-style-type:personal-reply;
font-family:"Times New Roman","serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:11.0pt">Jodavid,<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">Segue um
exemplo:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">require(maptools)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">require(classInt)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">columbus
<- readShapePoly(system.file("etc/shapes/columbus.shp",
package="spdep")[1])<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">mypal <-
c("wheat1", "red3")<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">f5 <-
classIntervals(columbus$CRIME, n=5, style="fisher")<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">f5Colours
<- findColours(f5, mypal)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">plot(columbus,
col=f5Colours,border ="black", axes = TRUE)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">title(main="Criminalidade
em Columbus.",xlab="Longitude",ylab="Latitude")<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">RosaDosVentos
<- function(loc,size,bearing=0,cols,cex=1,...)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">{<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">
if(missing(loc)) stop("loc is missing")<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">
if(missing(size)) stop("size is missing")<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">
if(missing(cols)) cols <- rep(c("white","black"),8)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> radii
<- rep(size/c(1,4,2,4),4)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> x <-
radii[(0:15)+1]*cos((0:15)*pi/8+bearing)+loc[1]<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> y <-
radii[(0:15)+1]*sin((0:15)*pi/8+bearing)+loc[2]<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> for (i in
1:15)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> x1 <-
c(x[i],x[i+1],loc[1])<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> y1 <-
c(y[i],y[i+1],loc[2])<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">
polygon(x1,y1,col=cols[i])<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> }<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">
polygon(c(x[16],x[1],loc[1]),c(y[16],y[1],loc[2]),col=cols[16])<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> b <-
c("L","N","O","S")<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"> for (i in
0:3) text((size+par("cxy")[1])*cos(bearing+i*pi/2)+loc[1],<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">
(size+par("cxy")[2])*sin(bearing+i*pi/2)+loc[2],b[i+1],cex=cex)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">}<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">RosaDosVentos
(c(5,13),0.4)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt" lang="PT-BR">Por
favor, informe se funcionou.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt" lang="PT-BR">Grande
abraço.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt" lang="PT-BR">Pedro<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt" lang="PT-BR"><o:p> </o:p></span></p>
<p class="MsoNormal"><b><span
style="font-size:10.0pt;font-family:"Tahoma","sans-serif""
lang="PT-BR">De:</span></b><span
style="font-size:10.0pt;font-family:"Tahoma","sans-serif""
lang="PT-BR"> <a class="moz-txt-link-abbreviated" href="mailto:r-br-bounces@listas.c3sl.ufpr.br">r-br-bounces@listas.c3sl.ufpr.br</a>
[<a class="moz-txt-link-freetext" 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 class="moz-txt-link-abbreviated" 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<o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<p class="MsoNormal">Olá Pedro, Eu estou até entendendo o seu
código.<o:p></o:p></p>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal">Mas ainda não consegui colocar a Rosa
dos Ventos.<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal">O problema está, em como fazer ela
aparecer na plotagem.<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal">se ela vai como legenda...<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal">se você puder me enviar algum exemplo
dela funcionando agradeceria bastante.<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal">abraço,<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<p class="MsoNormal">Em 27 de fevereiro de 2012 14:01,
Jodavid Ferreira <<a moz-do-not-send="true"
href="mailto:jodavid.arts@gmail.com">jodavid.arts@gmail.com</a>>
escreveu:<o:p></o:p></p>
<div>
<p class="MsoNormal">Olá Pedro,<o:p></o:p></p>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal">Rodei seu código,ok. Mas não
estou conseguindo visualizar a Rosa.<o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal">Não estou conseguindo coloca-la
no mapa, ou até mesmo, plotá-la.<o:p></o:p></p>
<div>
<p class="MsoNormal"><br clear="all">
<o:p></o:p></p>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<p class="MsoNormal">-- <br>
Jodavid Ferreira<br>
Responsável pela comissão de Comunicação do MJ da
RCCPB - <a moz-do-not-send="true"
href="http://jovem.rccpb.com.br" target="_blank">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 moz-do-not-send="true"
href="http://grupoboaesperanca.com"
target="_blank">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
moz-do-not-send="true"
href="http://de.ufpb.br/%7Eleapig"
target="_blank">http://de.ufpb.br/~leapig</a><br>
<a moz-do-not-send="true"
href="http://jodavidferreira.com"
target="_blank">http://jodavidferreira.com</a><o:p></o:p></p>
</div>
</div>
</div>
</div>
<p class="MsoNormal"><br>
<br clear="all">
<o:p></o:p></p>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<p class="MsoNormal">-- <o:p></o:p></p>
<div>
<p class="MsoNormal">Jodavid Ferreira<br>
Responsável pela comissão de Comunicação do MJ da RCCPB
- <a moz-do-not-send="true"
href="http://jovem.rccpb.com.br" target="_blank">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
moz-do-not-send="true"
href="http://grupoboaesperanca.com" target="_blank">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
moz-do-not-send="true"
href="http://de.ufpb.br/%7Eleapig" target="_blank">http://de.ufpb.br/~leapig</a><br>
Site Pessoal - <a moz-do-not-send="true"
href="http://jodavidferreira.com" target="_blank">http://jodavidferreira.com</a><o:p></o:p></p>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
</body>
</html>