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é