[R-br] Operação com expand.grid [RESOLVIDO]
ASANTOS
alexandresantosbr em yahoo.com.br
Sábado Novembro 2 19:30:32 BRST 2013
Fantástico Walmes,
Obrigado inicialmente pela rotina e pela interpretação da
pergunta, a palavras chave era vão.
--
======================================================================
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:alexandresantosbr em yahoo.com.br
alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================
Em 02/11/2013 17:09, walmes . escreveu:
> Sua explicação ficou muito confusa. Eu entendi que você tem um grid
> regular em duas dimensões e quer colocar outros iguais a este ao lado
> e acima mas de tal forma que tenha um espaço entre eles, em outras
> palavras, um vão entre eles. O resultado é parecido com uma horta
> cheia de canteiros ou talhões de plantio florestal (que deve ser o seu
> caso). Sendo assim, segue CMR.
>
> ## distâncias verticais e horizontais
> v <- 2; h <- 3
>
> ## número de pontos vertical e horizontal
> npv <- 8; nph <- 5
>
> ## distância entre vãos vertical e hotizontal
> V <- 3; H <- 4
>
> ## número de linhas e colunas
> ncol <- 2; nrow <- 3
>
> grid0 <- expand.grid(L=seq(0,length.out=nrow,by=npv*v+V),
> C=seq(0,length.out=ncol,by=nph*h+H),
> x=seq(0,length.out=npv,by=v),
> y=seq(0,length.out=nph,by=h))
> grid1 <- with(grid0, data.frame(x=L+x, y=C+y))
>
> plot(y~x, grid1, asp=1)
>
> À disposição.
> Walmes.
>
>
> ==========================================================================
> Walmes Marques Zeviani
> LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
> Departamento de Estatística - Universidade Federal do Paraná
> fone: (+55) 41 3361 3573
> skype: walmeszeviani
> homepage: http://www.leg.ufpr.br/~walmes
> <http://www.leg.ufpr.br/%7Ewalmes>
> linux user number: 531218
> ==========================================================================
>
>
> 2013/11/2 Thiago Silva Pereira <thigo.mail em gmail.com
> <mailto:thigo.mail em gmail.com>>
>
> p0<-c(1,1)
> c0 <- seq(p0[1],p0[1]+190,by=2)
> d0 <- seq(p0[2],p0[2]+47,by=3)
> d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2
> plot(d1[,1],d1[,2])
> curve(plot)
>
>
>
> Em 2 de novembro de 2013 16:31, ASANTOS
> <alexandresantosbr em yahoo.com.br
> <mailto:alexandresantosbr em yahoo.com.br>> escreveu:
>
> Boa tarde Pessoal,
>
> Estou com dificuldades de fazer um expand.grid()
> alterando-se as distância, como por exemplo se faço:
>
> # Ponto inicial
> p0<-c(1,1)
> c0 <- seq(p0[1],p0[1]+190,by=2)
> d0 <- seq(p0[2],p0[2]+47,by=3)
> d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas
> 3 x 2
> plot(d1[,1],d1[,2])
> #----------
>
> Crio 16 pontos no eixo y e 32 pontos no eixo x,
> totalizando 1536 pontos, no entanto, eu gostaria de criar os
> mesmo 1536 pontos, mas gostaria de fazer da seguinte maneira:
> a cada 8 pontos na linha e 8 na coluna, distanciar em 4
> unidades na linha e na coluna do próximo agrupamento de 8
> pontos na linha e 8 na coluna para todos os pontos, formando
> ao final 24 agrupamentos de 8 pontos na linha por 8 na coluna
> separados de maneira equidistantes em 4 unidades. Alguém
> poderia me dar uma ajuda, pois fiz inúmeras tentativas sem
> sucesso?
>
> Obrigado,
>
>
>
> --
> ======================================================================
> 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 <tel:%28%2B55%29%2065%208132-8112>
> (TIM) (+55) 65 9686-6970 <tel:%28%2B55%29%2065%209686-6970> (VIVO)
> e-mails:alexandresantosbr em yahoo.com.br
> <mailto:e-mails%3Aalexandresantosbr em yahoo.com.br>
> alexandre.santos em cas.ifmt.edu.br
> <mailto:alexandre.santos em cas.ifmt.edu.br>
> Lattes: http://lattes.cnpq.br/1360403201088680
> ======================================================================
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br <mailto:R-br em listas.c3sl.ufpr.br>
> 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.
>
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br <mailto:R-br em listas.c3sl.ufpr.br>
> 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.
>
>
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> 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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131102/03acdbdb/attachment.html>
Mais detalhes sobre a lista de discussão R-br