r - 减去作为 plotmath 中的指数(在 ggplot2 图例中)

Question

我正试图在 ggplot2 中创造一个传奇包含一个减号作为指数的图(指数中没有其他字符)。但是，我无法弄清楚 plotmath句法。

似乎以下方法可行:

expr1 <- expression(paste("text", main[sub]^{-}))

ggplot(mpg, aes(x=cty, y=hwy, colour=drv)) + geom_point() +
  scale_colour_discrete(labels=c(expr1, "b", "c"))

(如果我们说 expr1 <- expression(paste("text", main[sub]^{super})) 确实有效。在 plotmath 中是否有转义字符或减号？

Answer 1

您几乎肯定需要在那个减号周围加上引号，因为否则它会被认为是一个中缀运算符，因此在它之前和之后都需要参数。如果这不能解决问题，请添加一个小测试用例。

转义在 plotmath 中不起作用。特别是您不能使用 "\n"作为行尾/换行标记(如 help(plotmath) 页面中所述。

这也成功了:

expr1 <- expression(paste("text", main[sub]^{phantom()-phantom()}))

我以前从未尝试过使用 phantom在中缀运算符之前和之后，但解释器似乎可以接受。 Plotmath 表达式确实会被解析并且需要符合 R 解析规则。见 ?Syntax .如评论中所述，使用 "-"作为单个 phantom() 的前缀运算符也成功，因为减号可以用作一元减号或二进制减号:

expr1 <- expression(paste("text", main[sub]^{-phantom()}))

我们也可以使用空字符值作为前缀减号后的项目:{-""}