如何在 R 中成对图的对角线上打印希腊字母?
Posted
技术标签:
【中文标题】如何在 R 中成对图的对角线上打印希腊字母?【英文标题】:How do I print greek letters on the diagonal of a pairs plot in 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)
【问题讨论】:
【参考方案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)))
【讨论】:
以上是关于如何在 R 中成对图的对角线上打印希腊字母?的主要内容,如果未能解决你的问题,请参考以下文章
R语言ggplot2可视化添加希腊字母标签:图表题(title)中加入希腊字母图中加入希腊字母标签