<div dir="ltr">Caso você quira fazer um recorte no mapa, faça uma máscara<br><br>Criar uma matriz de zero e um (onde zero é o que você quer omitir e 1 os seus dados), através de uma equação da forma geométrica que você deseja<br>
<br>multiplique essa máscara pelos seus dados, e plote novamente<br><br>segue um exemplo abaixo de função que remove as bordas de um circulo<br><br><div>mask <- function (dados){</div><div style> # tamanho da coluna</div>
<div> Y=c(1:dim(dados)[1])</div><div> # calcular o raio</div><div> r=floor(length(Y)/2)</div><div style> # centro do círculo</div><div> cp = round(length(Y)/2,0) </div><div> # matriz com zeros</div><div> TT=matrix(0,nrow=dim(dados)[1],ncol=dim(dados)[2])</div>
<div> # fazer uma máscara de um e zero</div><div> for(X in c(1:dim(dados)[2])){</div><div> # calcula o raio de todos os Y e X com dados</div><div> R=sqrt((X-cp)^2+(Y-cp)^2)</div><div> #o maior valor do raio do circulo</div>
<div> zeros=which(R>=r)</div><div> # remove os pontos de fora do circulo</div><div> TT[X,-zeros]=1</div><div> }</div><div> return(TT)</div><div>}</div><div><br></div><div style>aplicando aos meus dados fica<br>
<br>dados.recortados<-dados*mask(dados)</div><div style><br></div><div style>espero ter ajudado<br><br><br></div></div><div class="gmail_extra"><br clear="all"><div>Tito Conte<br><br></div>
<br><br><div class="gmail_quote">2013/1/18 Tito Conte <span dir="ltr"><<a href="mailto:tito.conte@gmail.com" target="_blank">tito.conte@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><div class="gmail_extra">você pode colocar NA nos pontos que estão interligados</div><div class="gmail_extra"><br>suponha o seguinte: duas áreas limitadas por quadrados<br><br><div class="gmail_extra">
a=c(1,1,3,3,1,4,4,5,5,4)</div><div class="gmail_extra">b=c(2,4,4,2,2,6,7,7,6,6)</div><div class="gmail_extra">f=matrix(c(a,b),ncol=2)</div><div class="gmail_extra">plot(f,type='l')<br><br># caso vc queira remover a linha basta adicionar um NA<br>
<br><div class="gmail_extra">a=c(a[1:5],NA,a[6:10])</div><div class="gmail_extra"> b=c(b[1:5],NA,b[6:10])</div><div class="gmail_extra"> f=data.frame(a,b)</div><div class="gmail_extra">plot(f,type='l')<br><br>Seria isso?</div>
<br><br></div></div></div>
</blockquote></div><br></div>