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))

您能帮我处理legend() 语句中的apply() 语句吗？它需要一些修改才能产生所需的输出（即 A (α)、B(β)、C(γ)、D(δ)）。提前致谢。

Answer 1

不要使用apply 创建表达式向量。

改为使用parse(text = ...)。

.expressions <- paste(colnames(data),greek,sep="")
legend_expressions <-parse(text = .expressions)

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

如果您想在表达式中包含~。鉴于您当前的工作流程，在对 paste 的调用中将 sep = '' 替换为 sep = '~' 似乎最容易

.expressions <- paste(colnames(data),greek,sep="~")
legend_expressions <-parse(text = .expressions)

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

使用sprintf 形成将成为您的表达向量的字符串可能会更清楚。

如果要包含包含空格的字符串，则需要将这些字符串用引号引起来。例如。

greek <- c("alpha", "beta", "gamma", "delta")
other_stuff <- c('hello world','again this','and again','hello')

.expressions <- mapply(sprintf, colnames(data), other_stuff, greek, 
                       MoreArgs = list(fmt = '"%s %s"~(%s)'))

.expressions  
##                           A                           B                           C                           D 
## "\"A hello world\"~(alpha)"   "\"B again this\"~(beta)"   "\"C and again\"~(gamma)"       "\"D hello\"~(delta)" 

 legend_expressions <-parse(text = .expressions)

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

Answer 2

这是一种避免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)