在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也许另一个功能.我只是无法让它将数据作为向量读取并制作正确的上标.

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

• 在绘图标签中组合paste()和expression()函数
• 使用带有变量r的表达式
• 在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))