Olá pessoal!

Gostaria de saber se tem como obter o mesmo resultado abaixo, utilizando menos linhas de comando?
 
plot(1:8, 1:8,type="n",main="Letras Gregas",xlab="",ylab="")
abline(v = c(2,4,6), col = "lightgray", lty=3)

text(2.60,8,_expression_(paste(alpha," ","= alpha")))
text(2.55,7,_expression_(paste(beta," ","= beta")))
text(2.75,6,_expression_(paste(gamma," ","= gamma")))
text(2.55,5,_expression_(paste(delta," ","= delta")))
text(2.70,4,_expression_(paste(epsilon," ","= epsilon")))
text(2.53,3,_expression_(paste(zeta," ","= zeta")))
text(2.50,2,_expression_(paste(eta," ","= eta")))
text(2.55,1,_expression_(paste(theta," ","= theta")))

text(4.45,8,_expression_(paste(iota," ","= iota")))
text(4.65,7,_expression_(paste(kappa," ","= kappa")))
text(4.75,6,_expression_(paste(lambda," ","= lambda")))
text(4.45,5,_expression_(paste(mu," ","= mu")))
text(4.40,4,_expression_(paste(nu," ","= nu")))
text(4.35,3,_expression_(paste(xi," ","= xi")))
text(4.75,2,_expression_(paste(omicron," ","= omicron")))
text(4.37, 1,_expression_(paste(pi," ","= pi")))

text(6.45,8,_expression_(paste(rho," ","= rho")))
text(6.65,7,_expression_(paste(sigma," ","= sigma")))
text(6.45,6,_expression_(paste(tau," ","= tau")))
text(6.70,5,_expression_(paste(upsilon," ","= upsilon")))
text(6.45,4,_expression_(paste(phi," ","= phi")))
text(6.45,3,_expression_(paste(chi," ","= chi")))
text(6.50,2,_expression_(paste(psi," ","= psi")))
text(6.75,1,_expression_(paste(omega," ","= omega")))
 
desde já agradeço!

Att.
André
_______________________________________________
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.

Responder a