<div dir="ltr"><div>Alexandre, bom dia!</div><div><br></div><div>Não sei se ainda tem interesse na questão, mas como vi que não obteve respostas anteriormente, resolvi postar uma sugestão usando rgeos::gBuffer().</div><div><br></div><div>Nesse caso específico não se preservou o número original de vértices.</div><div><br></div><div><font face="monospace, monospace">### <code r></font></div><div><font face="monospace, monospace">sapply(c("sp", "rgdal", "rgeos", "maptools"), require, char=T)<br></font></div><div><font face="monospace, monospace"><br></font></div><div><div><font face="monospace, monospace">#Contorno da área </font></div><div><span style="font-family:monospace,monospace">t05 <- data.frame(x = c(371299.9, 371266.4, 371205.6, 371111.8, </span><br></div><div><font face="monospace, monospace">371047.6, 371018.2, 371014, 371009.3, 370983.1, 370919.7, 370853.6, </font></div><div><font face="monospace, monospace">370785.6, 370748.8, 370711.8, 370687.8, 370696.4, 370785.9, 370885.5, </font></div><div><font face="monospace, monospace">371035.8, 371148.1, 371205.2, 371231.7, 371236.5, 371240.3, 371285.8, </font></div><div><font face="monospace, monospace">371326.5, 371397.2, 371417.1, 371432.9, 371445, 371455.7, 371466.4, </font></div><div><font face="monospace, monospace">371476.6, 371502.6, 371536, 371550, 371546.8, 371528.3, 371470, </font></div><div><font face="monospace, monospace">371393.3, 371299.9, 371299.9), y = c(8246589, 8246560, 8246508, </font></div><div><font face="monospace, monospace">8246428, 8246373, 8246349, 8246348, 8246352, 8246385, 8246465, </font></div><div><font face="monospace, monospace">8246551, 8246638, 8246685, 8246732, 8246764, 8246771, 8246846, </font></div><div><font face="monospace, monospace">8246932, 8247062, 8247160, 8247209, 8247230, 8247224, 8247221, </font></div><div><font face="monospace, monospace">8247160, 8247107, 8247016, 8246991, 8246967, 8246939, 8246914, </font></div><div><font face="monospace, monospace">8246892, 8246875, 8246846, 8246821, 8246809, 8246802, 8246785, </font></div><div><font face="monospace, monospace">8246735, 8246669, 8246589, 8246589))</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">plot(t05, type="l", asp=1)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"># Criando objetos "sp"</font></div><div><font face="monospace, monospace">t05.sp <- t05</font></div><div><font face="monospace, monospace">t05.spp <- SpatialPolygons(list(Polygons(list(Polygon(t05)), ID="area")))</font></div><div><span style="font-family:monospace,monospace">plot(t05.spp, bor=3, lwd=2, axes=F)</span><br></div><div><span style="font-family:monospace,monospace"><br></span></div><div><span style="font-family:monospace,monospace"># Buffering</span></div><div><font face="monospace, monospace">plot(buffer <- gBuffer(t05.spp, width=-30, quadsegs=0, </font></div><div><font face="monospace, monospace"> capStyle="SQUARE", joinStyle="MITRE", mitreLimit=5), add=T)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">### Vértices da área reduzida</font></div><div><font face="monospace, monospace">t05.2 <- as.data.frame(coordinates(buffer@polygons[[1]]@Polygons[[1]])); t05.2</font></div></div><div><font face="monospace, monospace">### </code></font></div><div><br></div><div><br></div><br><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a 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></div></div>
<br><div class="gmail_quote">Em 9 de fevereiro de 2015 11:06, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">Caros Listeiros,<br>
<br>
Criei um polígono (c1) abaixo com os dados dos vértices da área em UTM e gostaria de saber se alguém conhece alguma função para mover todos os vértices 30m para dentro e reduzir a área do polígono?<br>
<br>
#Contorno da área ------------------------------<u></u>------------------------------<u></u>--<br>
x.coords1<-c(371299.9, 371266.4, 371205.6, 371111.8, 371047.6, 371018.2, 371014.0,<br>
371009.3, 370983.1, 370919.7, 370853.6, 370785.6, 370748.8, 370711.8,<br>
370687.8, 370696.4, 370785.9, 370885.5, 371035.8, 371148.1, 371205.2,<br>
371231.7, 371236.5, 371240.3, 371285.8, 371326.5, 371397.2, 371417.1,<br>
371432.9, 371445.0, 371455.7, 371466.4, 371476.6, 371502.6, 371536.0,<br>
371550.0, 371546.8, 371528.3, 371470.0, 371393.3, 371299.9, 371299.9)<br>
<br>
y.coords1<-c(8246589, 8246560, 8246508, 8246428, 8246373, 8246349, 8246348,<br>
8246352, 8246385, 8246465, 8246551, 8246638, 8246685, 8246732,<br>
8246764, 8246771, 8246846, 8246932, 8247062, 8247160, 8247209,<br>
8247230, 8247224, 8247221, 8247160, 8247107, 8247016, 8246991,<br>
8246967, 8246939, 8246914, 8246892, 8246875, 8246846, 8246821,<br>
8246809, 8246802, 8246785, 8246735, 8246669, 8246589, 8246589)<br>
<br>
<br>
# Cria um poligono<br>
t05<-unique(data.frame(x=rev(<u></u>x.coords1),y=rev(y.coords1)))<br>
c1 = cbind (t05$x, t05$y)<br>
r1 = rbind (c1, c1[1, ]) # junta<br>
plot(c1)<br>
polygon(c1)<br>
#<br>
<br>
-- <br>
==============================<u></u>==============================<u></u>==========<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: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<u></u>yahoo.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<u></u>1360403201088680</a><br>
==============================<u></u>==============================<u></u>==========<br>
<br>
<br>
---<br>
Este email foi escaneado pelo Avast antivírus.<br>
<a href="http://www.avast.com" target="_blank">http://www.avast.com</a><br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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/<u></u>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-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br></div></div>