[R-br] gráfico area

[Benilton Carvalho]

cada um gasta a tinta que tem....

Na versao original dos dados:

d1 <- data.frame(X=1:10,
                 Y1=c(-1.2,0,0,0,0,-30.3,-1.6,0,0,-2.4),
                 Y2=c(0,8.9,62.7,14,7.4,0,0,14.6,9.3,0))
library(ggplot2)
ggplot(d1) + geom_area(aes(x=X, y=Y1, fill='blue')) + geom_area(aes(x=X,
y=Y2, fill='red'))

Na versao na qual armazenam-se os dados de modo um pouco melhor:

library(reshape2)
dd <- melt(d1, measure.vars=c('Y1', 'Y2'), variable.name='group', value.name
='Y')
ggplot(dd) + geom_area(alpha=.4, aes(x=X, y=Y, fill=group))


b




Em 14 de agosto de 2014 13:19, <luc.souza em usp.br> escreveu:

> Walmes, obrigado e desculpe por não explicar melhor.
> O gráfico é para demonstrar o balanço hídrico de um solo, com excedente e
> déficit de agua no mesmo.
> Seria o mesmo desse link:
> http://www.cnpt.embrapa.br/imagens/p_do145-3-f1.png
>
> Lucas
>
> Lucas F. de Souza
> Eng. Agrícola - CONAB
> M.Sc. Produção Vegetal - UENF
> Doutor em Agrometeorologia - ESALQ/USP
> tel: (19) 98160-7068
>
> ------------------------------
>
> *De: *"walmes ." <walmeszeviani em gmail.com>
> *Para: *r-br em listas.c3sl.ufpr.br
> *Enviadas: *Quinta-feira, 14 de Agosto de 2014 13:11:18
> *Assunto: *Re: [R-br] gráfico area
>
>
> ​Quando alguém diz que quer o mesmo que o Excel me causa um pouco de
> estranheza​
> ​. Eu sinceramente não sei qual a utilidade de se preencher a área abaixo
> das séries. Penso que só as séries são suficientes. O mesmo para os
> gráficos de barras 3D ou até aqueles onde os blocos retangulares são
> substituídos por cones. Não vejo necessidade. Bem, o código abaixo não faz
> exatamente o que você precisa porque de fato eu não entendi o que você
> precisa. Mesmo assim, pode ser um ponto de partida. Pensou em polígonos com
> cores ou padrões então vá para a polygon().
>
> d1 <- data.frame(X=1:10,
>                  Y1=c(-1.2,0,0,0,0,-30.3,-1.6,0,0,-2.4),
>                  Y2=c(0,8.9,62.7,14,7.4,0,0,14.6,9.3,0))
>
> plot(Y2~Y1, d1)
> plot(Y2~X, d1)
>
> plot(c(Y1,Y2)~c(X,X), d1)
> with(d1, polygon(x=c(X,rev(X)),
>                  y=c(Y1, rep(min(Y1), length(Y1))),
>                  col="blue2"))
> with(d1, polygon(x=c(X,rev(X)),
>                  y=c(Y2, rep(min(Y2), length(Y2))),
>                  col="green"))
>
> À disposição.
> Walmes.​
>
> ​
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>
>
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>



-- 

[image: Benilton Carvalho on about.me]

Benilton Carvalho
about.me/benilton
  <http://about.me/benilton>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140814/8ad8a851/attachment.html>