我想合并拉丁文和希腊文文本的向量以生成绘图标题、轴标签、图例条目等。我在下面提供了一个简单的示例。我不知道如何以原始形式呈现希腊字母。我尝试过各种组合expression
, parse
, and apply
to the 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(δ))。提前致谢。