如何转义预定义符号,例如% 与 plotmath?

How to escape predefined symbols e.g. % with plotmath?

我正在使用 plotmath 支持,同时向我的绘图添加注释,即使用 parse=TRUE 参数。查看 plotmath documentation here 目前尚不清楚如何转义预定义符号,例如%

label <- 'atop(This~goes~on~top,of~this~with~11.1%)' # how to escape the % sign?
geom_text(...,label=label,parse=TRUE)

这会导致以下错误:

Error in parse(text = as.character(lab)) : <text>:1:40: unexpected input
1: atop(This~goes~on~top,of~this~with~11.1%)
                                          ^

放在引号里就可以了

label <- 'atop(This~goes~on~top,of~this~with~"11.1%")'
ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point() + 
    annotate("text", x = 4, y = 25, label = label, parse=TRUE)

只需将所有测试用引号引起来

label <- 'atop("This goes on top of this with 11.1%")'