<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><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]--></head><body lang=EN-US link=blue vlink=purple><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 lang=PT-BR style='font-size:11.0pt'>Por favor, informe se funcionou.<o:p></o:p></span></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt'>Grande abraço.<o:p></o:p></span></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt'>Pedro<o:p></o:p></span></p><p class=MsoNormal><span lang=PT-BR style='font-size:11.0pt'><o:p> </o:p></span></p><p class=MsoNormal><b><span lang=PT-BR style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>De:</span></b><span lang=PT-BR style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> r-br-bounces@listas.c3sl.ufpr.br [mailto:r-br-bounces@listas.c3sl.ufpr.br] <b>Em nome de </b>Jodavid Ferreira<br><b>Enviada em:</b> Friday, March 02, 2012 3:13 PM<br><b>Para:</b> r-br@listas.c3sl.ufpr.br<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 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 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 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 href="http://de.ufpb.br/~leapig" target="_blank">http://de.ufpb.br/~leapig</a><br><a 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 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 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 href="http://de.ufpb.br/~leapig" target="_blank">http://de.ufpb.br/~leapig</a><br>Site Pessoal - <a 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></body></html>