?legend usando os comandos q o Walmes te enviou, uma tentativa natural e': legend('right', c('txtA', 'txtB', 'txtC'), fill=c('gray90', 'black', 'blue'), angle=c(0, 33, 55), density=c(100, 3, 12)) Em 14 de dezembro de 2013 12:31, Wenceslau Teixeira <wgt007@gmail.com>escreveu:
Caro Walnes,
Agradeço a atenção,excelente, esta isto mesmo que precisávamos. Agora só me falta descobrir como fazer uma legenda usando os "símbolos" usados para diferenciar os poligonos. Qualquer dica é bem vinda
Sds gráficas
Wenceslau
Message: 11 Date: Wed, 11 Dec 2013 19:56:22 -0200 From: "walmes ." <walmeszeviani@gmail.com> To: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] Ajuda com gráficos no R - Diagrama volumétrico dos espaços no solo Message-ID: <CAFU=EkY= nDFvVPz3vAc1txSYxDURzv1xCPodDjLHNpXDZ9kU7Q@mail.gmail.com> Content-Type: text/plain; charset="iso-8859-1"
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
plot(x=NULL, y=NULL, xlim=c(0,1), ylim=c(1.2,0), xlab="Umidade (%)", ylab="Profundidade (m)")
## points(expand.grid(seq(0,1,0. 1), seq(0,1.2,0.2))) ## l <- locator() ## lines(l) ## l <- lapply(l, round, digits=1) ## dput(l)
l1 <- list(x = c(0, 0.2, 0.2, 0.4, 0.4, 0.5, 0.5, 0), y = c(1.2, 1.2, 0.8, 0.8, 0.4, 0.4, 0, 0)) l2 <- list(x = c(0.2, 0.7, 0.7, 0.6, 0.6, 0.6, 0.5, 0.5, 0.4, 0.4, 0.2, 0.2), y = c(1.2, 1.2, 0.8, 0.8, 0.6, 0, 0, 0.4, 0.4, 0.8, 0.8, 1.2)) l3 <- list(x = c(0.7, 1, 1, 0.6, 0.6, 0.7), y = c(1.2, 1.2, 0, 0, 0.8, 0.8))
polygon(l1$x, l1$y, col="gray90") polygon(l2$x, l2$y, density=3, angle=33) polygon(l3$x, l3$y, density=12, angle=55, col="blue")
À disposição. Walmes.
-- Wenceslau Teixeira
wgt007@gmail.com skype: wgt007
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.