在R表达式中组合矢量变量用于绘图文本

Question

我正在尝试在R图中创建一个文本图层，其中包含从变量派生的普通文本和上标文本。

到目前为止，我有这个：

first = c("one", "two", "three")
second = c(1, 2, 3)
plot(1:3, 3:1)
text(1:3, 3:1, labels=first)

现在的工作方式，它在情节上显示了一个，两个等。我希望它显示一个 ¹ ，两个 ² 等。

我想它应该是expression，paste，bquote和其他函数的某种组合。我只是不能让它将数据作为向量读取并制作正确的上标。

我在这个网站上看到了一些问题，例如：

• Combining paste() and expression() functions in plot labels
• Use expression with a variable r
• Including variables in expression call in R

他们都没有完全回答我的问题。

Answer 1

可能你可以试试

 plot(1:3, 3:1)
 text(1:3, (3:1)-0.03, labels= mapply(function(x,y)
      as.expression(bquote(.(x)^.(y))), first, second))