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

Answer 2

Don't use apply create a vector of expressions.

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

If you want to include ~ within the expressions. Given your current workflow, it would seem easiest to replace sep = '' with sep = '~' within the call to 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)

It might even be clearer to use sprintf to form the character strings which will become your expression vector.

If you want to include character strings that include spaces, you will need to wrap these strings in quotation marks within the string. For example.

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)