r bquote：在大致相等的plotmath符号之前删除空格

Question

这几乎是我想要的情节标题：

plot(1:10)
ylabs<-c("All","Native","Exotic")
i=1
mtext(bquote("("*.(letters[i])*")"~.(ylabs[i])~"("%~~%italic("H'")*")"),side=3)

但是我不希望在“（”之前和大约等号之前的空格。在符号出现错误之前添加*分隔符

mtext(bquote("("*.(letters[i])*")"~.(ylabs[i])~"("*%~~%italic("H'")*")"),side=3)

  

错误：

中的意外特殊情况

即使*分隔符在bquote的其他部分有效。我可以通过包括约。直接等号

mtext(bquote("("*.(letters[i])*")"~.(ylabs[i])~"("*"≈"~italic("H'")*")"),side=3)

但是我想知道在plotmath符号之前是否有办法让*工作？

我用表达式而不是bquote尝试了这个，但是无法将它与字符串与索引对象组合在一起。

Answer 1

诀窍是将整个文本放入下标：

plot(1:10)
ylabs<-c("All","Native","Exotic")
i=1
b <- bquote(phantom(0)["("*.(letters[i])*")"~.(ylabs[i])~"(" %~~%italic("H'")*")"])
mtext(b, cex = 2, side=3)