Boa noite Pessoal,

        Estou tentando representar as parcelas de um experimento em campo e estou tendo dois problemas sendo:

1) Representação do centro das parcelas:

## Coordenadas do grid no espaçamento das plantas de 2x4m

## distâncias verticais e horizontais entre plantas
v <- 2; h <- 4

## número de plantas vertical e horizontal
npv <- 4; nph <- 5

## distância entre vãos vertical e horizontal (distância entre parcelas)
V <- 7; H <- 7

## número de parcelas em linhas e colunas
ncol <- 4; nrow <- 12

grid0 <- expand.grid(L=seq(2,length.out=nrow,by=npv*v+V),
                     C=seq(2,length.out=ncol,by=nph*h+H),
                     x=seq(2,length.out=npv,by=v),
                     y=seq(2,length.out=nph,by=h))
grid1 <- with(grid0, data.frame(x=L+x, y=C+y))

plot(y~x, grid1, asp=1) ### Representação das plantas

    Até aí tudo bem, porém quando tento representar por pontos o centro das parcelas, começa o problema, sendo:

### O centro de cada parcela vai se localizar a cada 13 m na horizontal e a cada 23 na vertical

grid2 <- expand.grid(seq(7,length.out=13*4,by=13),
                     seq(12,length.out=23*12,by=23))

points(grid2[,1],grid2[,2],col="red") ## Vejo que os pontos caem errado e não sei por que?

2) Criar uma coluna para identificar a parcela a qual pertence cada planta:

pos<-1:48
text(grid2[,1],grid2[,2]+0.5,labels=pos, cex=1,col=2)

e depois que o centro cair no local certo, gostaria de fazer grid1$pos para identificar a qual centro da parcela cada ponto pertence.

       Espero que alguém possa dar um help,

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 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr@yahoo.com.br 
        alexandre.santos@cas.ifmt.edu.br 
Lattes: http://lattes.cnpq.br/1360403201088680                   
======================================================================