如何在R图中加下划线？

Question

我正在玩Ian Fellows的comparison.cloud源代码。 我想根据一些标准强调一些文本：

text(x1,y1,words[i],cex=size[i],offset=0,srt=rotWord*90, font=3,
         col=colors[group[i]],...)

我无法找到方法，我检查了par()文字，找不到解决方案，使用了underline()，也没有找到工作，bquote(underline(..))也无效。非常感谢帮助。