Boa noite pessoal,
Gostaria de saber se existe uma maneira de controlar a
inclinação da distribuição dos pontos em expand.grid() em função de um
limite de área, como por exemplo no meu CRM abaixo, onde no exemplo 1
esta tudo Ok, mas no exemplo 2 as coordenadas não consideram a
inclinação da área. Seria possível usar algum argumento para controlar isto?
# Exemplo 1
x<-c(0,0,100,100,0)
y<-c(0,100,100,0,0)
plot(x,y, type="l", col="red")
#
p0<-c(10,10)
#
#
c0 <- seq(p0[1],p0[1]+95,by=20)
d0 <- seq(p0[2],p0[2]+95,by=20)
d1 <- expand.grid(x=c0, y=d0)
points(d1[,1],d1[,2])
#
#Exemplo 2
x<-c(0,0,50,50,0)
y<-c(0,100,150,50,0)
plot(x,y, type="l", col="red")
#
p0<-c(10,10)
#
#
c0 <- seq(p0[1],p0[1]+95,by=20)
d0 <- seq(p0[2],p0[2]+95,by=20)
d1 <- expand.grid(x=c0, y=d0)
points(d1[,1],d1[,2])
#
Obrigado,
--
======================================================================
Alexandre dos Santos
Proteção Florestal
Coordenador do curso Técnico em Florestas
Vice Coordenador do curso de Engenharia 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]
======================================================================
_______________________________________________
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.
