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@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.