<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">A partir dessa tabela que você forneceu, você pode criar as listas que demarcam os vértices dos polígonos que representam cada porção do solo. Algo como<br>
<br><span style="font-family:courier new,monospace">plot(x=NULL, y=NULL, xlim=c(0,1), ylim=c(1.2,0),<br>     xlab="Umidade (%)", ylab="Profundidade (m)")<br><br>## points(expand.grid(seq(0,1,0.1), seq(0,1.2,0.2)))<br>
## l <- locator()<br>## lines(l)<br>## l <- lapply(l, round, digits=1)<br>## dput(l)<br><br>l1 <- list(x = c(0, 0.2, 0.2, 0.4, 0.4, 0.5, 0.5, 0),<br>           y = c(1.2, 1.2, 0.8, 0.8, 0.4, 0.4, 0, 0))<br>l2 <- list(x = c(0.2, 0.7, 0.7, 0.6, 0.6, 0.6, 0.5,<br>
               0.5, 0.4, 0.4, 0.2, 0.2),<br>           y = c(1.2, 1.2, 0.8, 0.8, 0.6, 0, 0, 0.4,<br>               0.4, 0.8, 0.8, 1.2))<br>l3 <- list(x = c(0.7, 1, 1, 0.6, 0.6, 0.7),<br>           y = c(1.2, 1.2, 0, 0, 0.8, 0.8))<br>
<br>polygon(l1$x, l1$y, col="gray90")<br>polygon(l2$x, l2$y, density=3, angle=33)<br>polygon(l3$x, l3$y, density=12, angle=55, col="blue")</span><br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">
</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;display:inline">À disposição.<br>Walmes.</div></div>