[R-br] Expressão em Itálico no Gráfico

[luc.souza em usp.br]

Um exemplo: 

main = substitute ( paste ( italic ( 'p value' ), " = 0.01" ))) 

Lucas F. de Souza 
Eng. Agrícola - CONAB 
M.Sc. Produção Vegetal - UENF 
Doutor em Agrometeorologia - ESALQ/USP 
tel: (19) 98160-7068 

----- Mensagem original -----

> De: "Felipe" <felipe.e.barletta em gmail.com>
> Para: r-br em listas.c3sl.ufpr.br
> Enviadas: Terça-feira, 31 de Março de 2015 0:27:34
> Assunto: [R-br] Expressão em Itálico no Gráfico

> Prezados,

> Estou plotando o gráfico, segundo os comandos abaixo, e desejo que no
> título do gráfico as expressões 1/x e 1/x^2 apareçam em itálico,
> assim
> como no corpo do gráfico usando text().

> x <- seq(0, 10,length = 1000)
> y <- 1/x
> matplot(x, y, axes=F, type="n", xlim=c(1, 7), ylim=c(0, 1), xlab="x",
> ylab="f (x)",cex.main=0.85,font.main=1,font.axis=1,
> cex.lab=0.75, font.lab=1, mgp=c(2,1,0),
> main=expression(Gráfico~das~funções:~1/x~~e~~1/x^2))

> # Traçando o gráfico da função: 1/x
> x <- x[x >= 1 & x <= 7]
> fx <- 1/x
> matplot(x, fx, type = "l", lty=1, add=T)
> # Adicionando texto no corpo do gráfico da função f(x0 = 1/x
> text(5, 0.26, expression(1/x), cex=0.7)

> # Traçando o gráfico das funções: 1/x e 1/x^2
> gx = 1/x^2
> matplot(x, gx, type = "l", lty=2, add=T)
> # Adicionando texto no corpo do gráfico: funções
> text(3.5, 0.16, expression(1/x^2), cex=0.7)
> # Plotando o beta
> abline(v = 6, lty = 3)

> # Definindo os eixos
> axis(1, at=seq(1,7,1), cex.axis=0.7, labels =
> expression(1,2,3,4,5,beta,""))
> axis(2, at=seq(0,1,0.5), cex.axis=0.7)
> abline (v=0, h=0)
> abline (v=1, lty = 2)

> Alguém sabe como fazer?
> Desde já agradeço a ajuda.
> _______________________________________________
> 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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150331/fe1a47a8/attachment.html>