<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Basta você aproveitar o que tem em grid0, que tem as colunas e linhas de blocos de árvores, combiná-los para fazer um fator. Confira no CMR.<br><br><span style="font-family:courier new,monospace">str(grid0)<br>unique(grid0$L)<br>unique(grid0$C)<br><br>grid1$parc <- with(grid0, interaction(L, C))<br>nlevels(grid1$parc)<br>levels(grid1$parc)<br><br>grid1$parc <- with(grid0,<br>                   interaction(as.integer(as.factor(L)),<br>                               as.integer(as.factor(C)),<br>                               sep="-"))<br>nlevels(grid1$parc)<br>levels(grid1$parc)<br><br>grid2 <- aggregate(cbind(x, y)~parc, data=grid1, FUN=mean)<br>str(grid2)<br><br>plot(y~x, grid1, col=as.integer(grid1$parc))<br>with(grid2, text(x, y, labels=as.character(parc)))<br></span><br><span style="font-family:courier new,monospace">subset(grid1, parc=="1-1")</span><br><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div></div>