<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Éder,<br>
<br>
Infelizmente não deu certo, a função crop fez como se fosse um
extent e não fez o corte irregularmente como é a borda, segue CRM:<br>
<br>
require(sp); require(rgdal); require(raster)<br>
<br>
## Raster-----------------------------------------------------------<br>
set.seed(20131226)<br>
r <- raster(nc=100, nr=100)<br>
r <- setValues(r, round(runif(ncell(r))* 255))<br>
image(r,col=gray(seq(0,1,0.025)))<br>
<br>
## Borda -----------------------------------------------------------<br>
x<-c(-125,-100,0,100,-125)<br>
y<-c(-49,25,0,-50,-49)<br>
limite<-cbind(x,y)<br>
lines(limite, col="yellow")<br>
##<br>
<br>
## Converte borda para SpatialPolygon<br>
spt.borda <- SpatialPolygons(list(Polygons(list(Polygon(limite)),
"1")))<br>
<br>
### Recorte do raster contido no interior da borda<br>
r.crop <- crop(r, spt.borda, snap='out')<br>
image(r.crop, asp=1)<br>
#<br>
<br>
Obrigado,<br>
<div class="moz-cite-prefix">Em 26/12/2013 18:35, Éder Comunello
escreveu:<br>
</div>
<blockquote
cite="mid:CABmC8gmt3NtkbMGdwSAviv5MBR760oSAkU7yMnaqfqYOLtaovw@mail.gmail.com"
type="cite">Alexandre,<br>
<br>
Você pode criar um objeto SpatialPolygon a partir da borda e
recortar com raster::crop.<br>
<br>
Veja um exemplo já postado:<br>
.<br>
<a moz-do-not-send="true"
href="http://r-br.2285057.n4.nabble.com/R-br-Novo-problema-para-mudar-projecao-de-um-raster-tc4660115.html#a4660119">http://r-br.2285057.n4.nabble.com/R-br-Novo-problema-para-mudar-projecao-de-um-raster-tc4660115.html#a4660119</a><br>
<br>
<br>
Em quinta-feira, 26 de dezembro de 2013, ASANTOS<<a
moz-do-not-send="true"
href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a>>
escreveu:<br>
> Boa tarde Pessoal,<br>
><br>
> Gostaria de saber qual a melhor forma de recortar um
rasterlayer se eu tenho o limite de uma área em data frame, pois
segundo o exemplo abaixo não consigo fazer a operação com o uso de
função overlay() para retirar os NA's que correspondem a malha
fora do limite sem ficar fazendo inúmeras transformações dos
objetos raster e data.frame, segue CRM:<br>
><br>
> ##
Raster-----------------------------------------------------------<br>
> set.seed(20131226)<br>
> r <- raster(nc=100, nr=100)<br>
> r <- setValues(r, round(runif(ncell(r))* 255))<br>
> image(r,col=gray(seq(0,1,0.025)))<br>
><br>
> ## Borda
-----------------------------------------------------------<br>
> x<-c(-125,-100,0,100,-125)<br>
> y<-c(-49,25,0,-50,-49)<br>
> limite<-cbind(x,y)<br>
> lines(limite, col="yellow")<br>
> ##<br>
><br>
> Obrigado<br>
><br>
> --<br>
>
======================================================================<br>
> Alexandre dos Santos<br>
> Proteção Florestal<br>
> IFMT - Instituto Federal de Educação, Ciência e Tecnologia de
Mato Grosso<br>
> Campus Cáceres<br>
> Caixa Postal 244<br>
> Avenida dos Ramires, s/n<br>
> Bairro: Distrito Industrial<br>
> Cáceres - MT CEP: 78.200-000<br>
> Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)<br>
> <a moz-do-not-send="true"
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a><br>
> <a moz-do-not-send="true"
href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a><br>
> Lattes: <a moz-do-not-send="true"
href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a><br>
>
======================================================================<br>
><br>
> _______________________________________________<br>
> R-br mailing list<br>
> <a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
> <a moz-do-not-send="true"
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
> Leia o guia de postagem (<a moz-do-not-send="true"
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.<br>
><br>
<br>
-- <br>
<div dir="ltr">Éder Comunello <<a moz-do-not-send="true"
href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a
moz-do-not-send="true" href="mailto:omunello.eder@gmail.com"
target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div>
<br>
<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>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
</body>
</html>