8

我为多个数据集生成了一个图。每个数据集都应该有自己的图例，其中可能包含希腊字母、绘图符号或子和上标。我想循环生成图例文本。

如果只有一个图例文本，Bquote 可以正常工作。如果我尝试添加额外的图例文本，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
  )
4

2 回答 2

6

试试这个：

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

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

我不知道您是否想要Omega^10orOmega*10或Omega%*%10，但它们都会产生可接受的绘图表达式。

在此处输入图像描述

于 2013-03-08T07:42:28.073 回答
4

将“legend_texts”更改为：

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

在 的帮助页面中?legend，“legend”参数被描述为：

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

输出：

在此处输入图像描述

于 2013-03-08T07:37:10.027 回答