<div dir="ltr"><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif">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.</div>
<div class="gmail_default" style="font-family:'trebuchet ms',sans-serif"><br></div><div class="gmail_default"><div class="gmail_default"><font face="courier new, monospace">## distâncias verticais e horizontais</font></div>
<div class="gmail_default"><font face="courier new, monospace">v <- 2; h <- 3</font></div><div class="gmail_default"><font face="courier new, monospace"><br></font></div><div class="gmail_default"><font face="courier new, monospace">## número de pontos vertical e horizontal</font></div>
<div class="gmail_default"><font face="courier new, monospace">npv <- 8; nph <- 5</font></div><div class="gmail_default"><font face="courier new, monospace"><br></font></div><div class="gmail_default"><font face="courier new, monospace">## distância entre vãos vertical e hotizontal</font></div>
<div class="gmail_default"><font face="courier new, monospace">V <- 3; H <- 4</font></div><div class="gmail_default"><font face="courier new, monospace"><br></font></div><div class="gmail_default"><font face="courier new, monospace">## número de linhas e colunas</font></div>
<div class="gmail_default"><font face="courier new, monospace">ncol <- 2; nrow <- 3</font></div><div class="gmail_default"><font face="courier new, monospace"><br></font></div><div class="gmail_default"><font face="courier new, monospace">grid0 <- expand.grid(L=seq(0,length.out=nrow,by=npv*v+V),</font></div>
<div class="gmail_default"><font face="courier new, monospace"> C=seq(0,length.out=ncol,by=nph*h+H),</font></div><div class="gmail_default"><font face="courier new, monospace"> x=seq(0,length.out=npv,by=v),</font></div>
<div class="gmail_default"><font face="courier new, monospace"> y=seq(0,length.out=nph,by=h))</font></div><div class="gmail_default"><font face="courier new, monospace">grid1 <- with(grid0, data.frame(x=L+x, y=C+y))</font></div>
<div class="gmail_default"><font face="courier new, monospace"><br></font></div><div class="gmail_default"><font face="courier new, monospace">plot(y~x, grid1, asp=1)</font></div><div style="font-family:'trebuchet ms',sans-serif">
<br></div><div style="font-family:'trebuchet ms',sans-serif">À disposição.</div><div style="font-family:'trebuchet ms',sans-serif">Walmes.</div><div style="font-family:'trebuchet ms',sans-serif"><br>
</div></div></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">skype: walmeszeviani<br style="font-family:trebuchet ms,sans-serif"></span><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span></div>
</div>
<br><br><div class="gmail_quote">2013/11/2 Thiago Silva Pereira <span dir="ltr"><<a href="mailto:thigo.mail@gmail.com" target="_blank">thigo.mail@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><div class="im"><span style="font-family:arial,sans-serif;font-size:13px">p0<-c(1,1)</span><br style="font-family:arial,sans-serif;font-size:13px"><span style="font-family:arial,sans-serif;font-size:13px">c0 <- seq(p0[1],p0[1]+190,by=2)</span><br style="font-family:arial,sans-serif;font-size:13px">
<span style="font-family:arial,sans-serif;font-size:13px">d0 <- seq(p0[2],p0[2]+47,by=3)</span><br style="font-family:arial,sans-serif;font-size:13px"><span style="font-family:arial,sans-serif;font-size:13px">d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2</span><br style="font-family:arial,sans-serif;font-size:13px">
<span style="font-family:arial,sans-serif;font-size:13px">plot(d1[,1],d1[,2])</span><br></div><div><span style="font-family:arial,sans-serif;font-size:13px">curve(plot)</span></div><div><span style="font-family:arial,sans-serif;font-size:13px"><br>
</span></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 2 de novembro de 2013 16:31, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<div>
<div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Boa tarde Pessoal,<br>
<br>
Estou com dificuldades de fazer um expand.grid() alterando-se as distância, como por exemplo se faço:<br>
<br>
# Ponto inicial<br>
p0<-c(1,1)<br>
c0 <- seq(p0[1],p0[1]+190,by=2)<br>
d0 <- seq(p0[2],p0[2]+47,by=3)<br>
d1 <- expand.grid(x=c0, y=d0) ## Coordenadas do grid espaçadas 3 x 2<br>
plot(d1[,1],d1[,2])<br>
#----------<br>
<br>
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?<br>
<br>
Obrigado,<br>
<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>
______________________________<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></div></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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/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-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>