我想在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)
答案 0 :(得分:5)
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)))