在R图的图例文本中使用子/上标和特殊字符

Question

我为多个数据集生成一个图。每个数据集都应该有它自己的图例，这些图例可能包含希腊字母，图形符号或者子和超字符。我想在循环中生成图例文本。

Bquote工作正常，如果只有一个图例文本。如果我尝试添加additinal传说的文本，该plotmath-commads迷路了，...

x <- 0:10 
y1 = x * x 
y2 = x * 10 

plot (1,1, type="n", xlab=bquote(Omega), ylab="Y", las=1, xlim=range(x), ylim=range(y1, y2)) 
lines(x, y1, col=1, pch=1, type="b") 
lines(x, y2, col=2, pch=2, type="b") 

# generate legend texts (in a loop) 
legend_texts = c(
    bquote(Omega^2) 
    , bquote(Omega%*%10) 
) 
# Using a single bquote works fine: 
#legend_texts = bquote(Omega^2) 
#legend_texts = bquote(Omega%*%10) 

legend(
    "topleft" 
    , legend = legend_texts 
    , col = c(1:2) 
    , pch = c(1:2) 
    , lty = 1 
) 

Answer 1

更改 “legend_texts” 到：

# generate legend texts (in a loop) 
legend_texts = c(
    as.expression(bquote(Omega^2)) 
    , as.expression(bquote(Omega%*%10)) 
) 

从帮助页面?legend， “传奇”参数描述为：

一个字符或表达式向量。长度≥1以出现在图例中。其他对象将被as.graphicsAnnot强制。

输出：

Answer 2

试试这个：

legend_texts = expression(
    Omega^2, Omega*10) 

legend(
    "topleft" 
    , legend = legend_texts 
    , col = c(1:2) 
    , pch = c(1:2) 
    , lty = 1 
    ) 

我不能告诉你，如果想Omega^10或Omega*10或Omega%*%10，但他们都将产生可接受的plotmath表达式。