R:为绘图标题、轴标签或图例创建拉丁文/希腊文表达式的向量

Question

我想合并拉丁语和希腊语文本的向量以生成绘图标题、轴标签、图例条目等。我在下面提供了一个简单的例子。我无法弄清楚如何以其母语形式呈现希腊字母。我尝试了 expression 的各种组合, parse , 和 apply到 paste命令，但我无法矢量化可以为单个表达式的情况轻松生成混合拉丁文/希腊文文本的代码(例如，expression("A ("*alpha*")") 适用于单个表达式的情况)。

data<-matrix(seq(20),nrow=5,ncol=4,byrow=TRUE)
colnames(data)<-c("A","B","C","D")
greek<-c(" (alpha)"," (beta)"," (gamma)"," (delta)")
matplot(data)
legend(1,max(data),fill=c("black","red","green","blue"),apply(matrix(paste(colnames(data),greek,sep=""),nrow=4,ncol=1),1,expression))

你能帮我解决 apply()吗？ legend()内的声明陈述？它需要进行一些修改才能产生所需的输出(即 A (α)、B(β)、C(γ)、D(δ))。提前致谢。

Answer 1

这是避免 parse() 的替代方法，并使用您对@mnel 的好答案的第一条评论中提到的示例:

greek <- c("alpha", "beta", "gamma", "delta")
cnames <- paste(LETTERS[1:4], letters[1:4])

legend_expressions <- 
sapply(1:4, function(i) {
    as.expression(substitute(A (B), 
                  list(A = as.name(cnames[i]), B = as.name(greek[i]))))
})

matplot(data)
legend(1,max(data),fill=c("black","red","green","blue"),legend_expressions)