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

【问题标题】：How do I print greek letters on the diagonal of a pairs plot in R?如何在 R 中成对图的对角线上打印希腊字母？
【发布时间】：2010-11-25 22:08:55
【问题描述】：

我想在 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)

【问题讨论】：

标签： r symbols

【解决方案1】：

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

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

它会做你想做的事。请注意，pairs 函数也接受标签参数，所以这也可以：

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

【讨论】：