[R-br] legenda em gráficos

[Augusto Ribas]

Confira se é isso que vc quer, se for, olhe a função expression.

f<-function(x,alfa,beta){(beta/(sqrt(2*pi)*x^2*pnorm(alfa)))*exp(-0.5*(alfa-beta/x)^2)}

BA<-function(x,alfa,beta,a,b){(beta/x^2)*(1/beta(a,b))*(dnorm(alfa-beta/x)/pnorm(alfa))*(pnorm(alfa-beta/x)/pnorm(alfa))^(a-1)*(1-pnorm(alfa-beta/x)/pnorm(alfa))^(b-1)}

##gráfico 1
curve(f(x,alfa=1,beta=1),ylab =
"f(x)",lty=1,ylim=c(0,2.5),xlim=c(0,2),main=expression(alpha==1),lwd=2,col=1)
curve(BA(x,alfa=1,beta=1,a=0.5,b=0.5),add =
T,lty=2,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=2)
curve(BA(x,alfa=1,beta=1,a=0.5,b=2),add =
T,lty=3,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=3)
curve(BA(x,alfa=1,beta=1,a=2,b=0.5),add =
T,lty=4,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=4)
legend("topright",cex=1,lty= 1:4,lwd=2,col=1:4,
legend
=expression(alpha,alpha==0.5,beta==0.5,alpha==0.5,beta==2,alpha==2,beta==0.5))


?expression

Em 26 de junho de 2012 11:54, Edson Ferreira <edsonlontra em yahoo.com.br>escreveu:

> olá amigos do R
>
>
>
> estou tentando fazer uma legenda e não estou conseguindo
>
> segue o código que estou usando e as modificações que quero fazer
>
>
>
>
> f<-function(x,alfa,beta){(beta/(sqrt(2*pi)*x^2*pnorm(alfa)))*exp(-0.5*(alfa-beta/x)^2)}
>
>
> BA<-function(x,alfa,beta,a,b){(beta/x^2)*(1/beta(a,b))*(dnorm(alfa-beta/x)/pnorm(alfa))*(pnorm(alfa-beta/x)/pnorm(alfa))^(a-1)*(1-pnorm(alfa-beta/x)/pnorm(alfa))^(b-1)}
>
>
> ##gráfico 1
> curve(f(x,alfa=1,beta=1),ylab =
> "f(x)",lty=1,ylim=c(0,2.5),xlim=c(0,2),main="alfa=1 e beta=1",lwd=2,col=1)
> curve(BA(x,alfa=1,beta=1,a=0.5,b=0.5),add =
> T,lty=2,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=2)
> curve(BA(x,alfa=1,beta=1,a=0.5,b=2),add =
> T,lty=3,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=3)
> curve(BA(x,alfa=1,beta=1,a=2,b=0.5),add =
> T,lty=4,ylim=c(0,2.5),xlim=c(0,2),lwd=2,col=4)
> legend("topright",cex=1,legend = c("alfa","a=0.5,b=0.5","a=0.5,b=2","a=2
> ,b=0.5"),lty= 1:4,lwd=2,col=1:4)
>
>
>
>
>
>
>
> modificações que estou tentando fazer:
>
>
> Estou precisando que no título do gráfico apareça as letras
> alpha e beta e não os nomes das letras.
> O mesmo com a legenda, onde aparece o nome alfa deve permanecer
> o nome alfa, mas onde aparece as letras a e b, quero que apareça
> as letras lambda e sigma.
>
>
>
>
>
>
>
>
>
> Att
>
> Edson
>
>
>
> _______________________________________________
> 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.
>



-- 
Grato
Augusto C. A. Ribas

Site Pessoal: http://augustoribas.heliohost.org
Lattes: http://lattes.cnpq.br/7355685961127056
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120626/4fca63d8/attachment.html>