<div dir="ltr"><div>Caro Walnes,<br><br><br></div><div>Agradeço a atenção,excelente, esta isto mesmo que precisávamos. <br>Agora só me falta descobrir como fazer uma legenda usando os "símbolos" usados para diferenciar os poligonos. Qualquer dica é bem vinda<br>
<br></div><div>Sds gráficas<br><br>Wenceslau  <br></div><div><div><br><br>
Message: 11<br>
Date: Wed, 11 Dec 2013 19:56:22 -0200<br>
From: "walmes ." <<a href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</a>><br>
To: "<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>><br>
Subject: Re: [R-br] Ajuda com gráficos no R - Diagrama volumétrico dos<br>
        espaços no solo<br>
Message-ID:<br>
        <CAFU=EkY=<a href="mailto:nDFvVPz3vAc1txSYxDURzv1xCPodDjLHNpXDZ9kU7Q@mail.gmail.com">nDFvVPz3vAc1txSYxDURzv1xCPodDjLHNpXDZ9kU7Q@mail.gmail.com</a>><br>
Content-Type: text/plain; charset="iso-8859-1"<br>
<br>
A partir dessa tabela que você forneceu, você pode criar as listas que<br>
demarcam os vértices dos polígonos que representam cada porção do solo.<br>
Algo como<br>
<br>
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.<div id=":mr">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")<br>
<br>
<br>
À disposição.<br>
Walmes.</div><br clear="all"><br>-- <br><div dir="ltr">Wenceslau Teixeira<br><br><a href="mailto:wgt007@gmail.com" target="_blank">wgt007@gmail.com</a><br>skype: wgt007<br><br><br><br><br><br><br><br><br><br><br><br><br>
<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br></div>
</div></div></div>