r - 在 R 中绘制包含 "approximately equal to"的文本

Question

我熟悉使用 expression()和 bquote()在 R 中的文本基础图形中绘制特殊的 Tex 之类的标记时。但是如何在不让解析器抛出错误的情况下执行“大约等于”。我指的是?plotmath在确定标记时。

plot(c(1,100), c(1,100), type="n", axes=FALSE, xlab="", ylab="")

# This works
text(50, 80, expression(paste("The area is 24 ", km^2)))

# This doesn't
text(50, 50, expression(paste("Reginald is ", %~~% , "14 years old")))

Answer 1

这应该可以解决问题:

plot(c(1,100), c(1,100), type="n", axes=FALSE, xlab="", ylab="")
text(50, 50, 
     expression(paste("Reginald is ", phantom() %~~% phantom(), "14 years old")))

您的版本不起作用的原因是 %~~% 'operator' 期望成为表达式的一部分，它的左边和右边都有一些东西。 phantom()为您提供 (a) 不可见且 (b) 不占用宽度的东西——正是您所需要的。

编辑 :

我每天都学到一些东西。 Brian Diggs 在评论中指出，您可以产生相同的效果，更简单的方法是在表达式中省略逗号(在这种情况下，您甚至不需要嵌套调用 paste() )。这是更好的解决方案:

text(50, 50, expression("Reginald is " %~~% "14 years old"))