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

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

Answer 2

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) 

あなたは、式の中~を含める場合。あなたの現在のワークフローを考えると、それもあなたの発現ベクターになります文字列を形成するためにsprintfを使用するように明確であるかもしれないpaste

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

に呼び出し内でsep = '~'とsep = ''を交換するのが最も簡単と思われます。

スペースを含む文字列を含める場合は、これらの文字列を文字列内の引用符で囲む必要があります。例えば。

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)