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

De: "Felipe" <felipe.e.barletta@gmail.com>
Para: r-br@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@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.