Quiero crear un gráfico de pares en R que tenga etiquetas en la diagonal escritas como letras griegas. He intentado crear una función text.panel personalizada que envuelve las etiquetas en unexpression() Llama, pero esto no funciona.

Aquí hay un caso de prueba simple:

pairs.greek <- function(x, ...)
{
  panel.txt <- function(x, y, labels, cex, font, ...)
  {
    lab <- labels
    text(0.5, 0.5, expression(lab), cex=cex, font=font)
  }
  pairs(x, text.panel=panel.txt)
}
dat <- data.frame(alpha=runif(10), beta=runif(10), gamma=runif(10))
pairs.greek(dat)