<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Oi Rodrigo,<div><br></div><div>Rodei aqui e deu certo.</div><div><br></div><div>Grata pela ajuda,</div><div><br></div><div>Abraço.</div><div><br></div><div>Aline<br><br><div><hr id="stopSpelling">From: rodrigo.gringo@gmail.com<br>Date: Thu, 9 Oct 2014 14:02:55 -0300<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: Re: [R-br] mapa: rosa dos ventos<br><br><div dir="ltr"><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);">Olá Aline, <br><br></div><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);"> então, não sei porque a função compassRose do pacote sp (versão 1.0.15) não está disponível.<br></div><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);">Este erro também apareceu para mim. Talvez alguma atualização do pacote mudou o nome da função, <br></div><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);">algo do gênero, não pesquisei a fundo.<br><br></div><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);">De todo modo, segue a função abaixo para que você possa implementá-la e utilizá-la em suas demandas.<br></div><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);">A fonte da função é o próprio pacote sp, que você pode consultar em: <br><a href="https://r-forge.r-project.org/scm/viewvc.php/pkg/sp/R/compassRose.R?view=markup&revision=917&root=rspatial" target="_blank">https://r-forge.r-project.org/scm/viewvc.php/pkg/sp/R/compassRose.R?view=markup&revision=917&root=rspatial</a><br></div><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);"><br><pre>compassRose<-function(x,y,rot=0,cex=1) {
oldcex<-par(cex=cex)
mheight<-strheight("M")
xylim<-par("usr")
plotdim<-par("pin")
xmult<-(xylim[2]-xylim[1])/(xylim[4]-xylim[3])*plotdim[2]/plotdim[1]
point.angles<-seq(0,2*pi,by=pi/4)+pi*rot/180
crspans<-rep(c(mheight*3,mheight/2),length.out=9)
xpoints<-cos(point.angles)*crspans*xmult+x
ypoints<-sin(point.angles)*crspans+y
for(point in 1:8) {
pcol<-ifelse(point%%2,"black","white")
polygon(c(xpoints[c(point,point+1)],x),c(ypoints[c(point,point+1)],y),col=pcol)
}
txtxpoints<-cos(point.angles[c(1,3,5,7)])*1.2*crspans[1]*xmult+x
txtypoints<-sin(point.angles[c(1,3,5,7)])*1.2*crspans[1]+y
text(txtxpoints,txtypoints,c("E","N","W","S"))
par(oldcex)
}</pre><br><br></div><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);">Abraço,<br></div><div class="ecxgmail_default" style="font-family:trebuchet ms,sans-serif;font-size:small;color:rgb(0,0,0);">RS<br></div></div><div class="ecxgmail_extra"><br clear="all"><div><div dir="ltr">___________________________________________________<br><b>Rodrigo Sant'Ana</b><br>--<br><div>Mestre em Ciência e Tecnologia Ambiental - MCTA/UNIVALI<div>Graduado em Oceanografia - CTTMar/UNIVALI</div><div>Universidade do Vale do Itajaí - UNIVALI</div><div>--</div></div><div><br></div></div></div>
<br><div class="ecxgmail_quote">Em 9 de outubro de 2014 13:36, Aline Lipsky <span dir="ltr"><<a href="mailto:line_lips@hotmail.com" target="_blank">line_lips@hotmail.com</a>></span> escreveu:<br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex;">
<div><div dir="ltr">Boa tarde caros colegas,<div><br></div><div>Estou plotando um mapa com o seguinte script:</div><div><br></div><div>library(maptools)</div><div>library(maps)</div><div>library(mapdata)</div><div>library(mapproj)</div><div>library(sp)</div><div><br></div><div>SHP22 <- readShapeSpatial("hidrografia_poligonos_utm22.shp")</div><div><br></div><div><div>#Plotar o mapa</div><div>x11()</div><div><br></div><div>par(mar=c(2,2,2,4.2)) # ajustando as margens (bottom, left, top, right)</div><div>plot(SHP22, col='light blue', axes=F, ylim=c(6441000,6530000),xlim=c(380000,410000))</div><div><br></div><div>#adicionando eixo no mapa</div><div>axis(4, las=1, cex.axis=0.9) #adicionando latitude do lado direito do mapa</div><div>axis(1, las=1, cex.axis=0.9) #adicionando longitude abaixo do mapa</div></div><div><br></div><div>Mas quando tento plotar a rosa dos ventos com a seguinte função:</div><div><br></div><div>compassRose(430000,6525000, rot=0, cex=0.65)</div><div><br></div><div>aparece o erro: </div><div><br></div><div>Error: could not find function "compassRose".</div><div><br></div><div>Alguém saberia me dizer o que posso fazer?</div><div><br></div><div>Grata desde já pela atenção,</div><div><br></div><div>Att.,</div><div><br></div><div>Aline</div><div><br></div><div><br></div> </div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a 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></blockquote></div><br></div>
<br>_______________________________________________
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.</div></div> </div></body>
</html>