Caros Listeiros,
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?
#Contorno da área
--------------------------------------------------------------
x.coords1<-c(371299.9, 371266.4, 371205.6, 371111.8,
371047.6, 371018.2, 371014.0,
371009.3, 370983.1, 370919.7, 370853.6,
370785.6, 370748.8, 370711.8,
370687.8, 370696.4, 370785.9, 370885.5,
371035.8, 371148.1, 371205.2,
371231.7, 371236.5, 371240.3, 371285.8,
371326.5, 371397.2, 371417.1,
371432.9, 371445.0, 371455.7, 371466.4,
371476.6, 371502.6, 371536.0,
371550.0, 371546.8, 371528.3, 371470.0,
371393.3, 371299.9, 371299.9)
y.coords1<-c(8246589, 8246560, 8246508, 8246428, 8246373,
8246349, 8246348,
8246352, 8246385, 8246465, 8246551, 8246638,
8246685, 8246732,
8246764, 8246771, 8246846, 8246932, 8247062,
8247160, 8247209,
8247230, 8247224, 8247221, 8247160, 8247107,
8247016, 8246991,
8246967, 8246939, 8246914, 8246892, 8246875,
8246846, 8246821,
8246809, 8246802, 8246785, 8246735, 8246669,
8246589, 8246589)
# Cria um poligono
t05<-unique(data.frame(x=rev(x.coords1),y=rev(y.coords1)))
c1 = cbind (t05$x, t05$y)
r1 = rbind (c1, c1[1, ]) # junta
plot(c1)
polygon(c1)
#
--
======================================================================
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)
e-mails:[email protected]
[email protected]
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================
---
Este email foi escaneado pelo Avast antivírus.
http://www.avast.com
_______________________________________________
R-br mailing list
[email protected]
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.
