如何在R中的一对图的对角线上打印希腊字母？

Question

我想在R中创建一个对图，在对角线上将标签写成希腊字母。 我尝试创建一个自定义text.panel函数，该函数将标签包装在expression()调用中，但这不起作用。

这是一个简单的测试用例：

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)

Answer 1

expression(lab)实际上并不评估lab因此最终所有标签都是lab 。 相反，您可以将该行更改为：

text(0.5, 0.5, parse(text=lab), cex=cex, font=font)

这将做你想要的。 请注意， pairs函数还接受一个labels参数，因此也可以使用：

pairs(dat, labels=c(expression(alpha), expression(beta), expression(gamma)))