<div dir="ltr">?legend<div><br></div><div>usando os comandos q o Walmes te enviou, uma tentativa natural e':</div><div><br></div><div>legend('right', c('txtA', 'txtB', 'txtC'), fill=c('gray90', 'black', 'blue'), angle=c(0, 33, 55), density=c(100, 3, 12))<br>
</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 14 de dezembro de 2013 12:31, Wenceslau Teixeira <span dir="ltr"><<a href="mailto:wgt007@gmail.com" target="_blank">wgt007@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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" target="_blank">walmeszeviani@gmail.com</a>><br>
To: "<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>" <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">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" target="_blank">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>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><span class="HOEnZb"><font color="#888888"><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>
</font></span></div></div></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>