ggplot2 facet以上标开头的条带文本

Question

这可能听起来多余，但我搜索无法解决这个具体问题。我想标记一个带有同位素符号的小面条：222Rn，其中＆＃34; 222＆＃34;是上标格式，在＆＃34; Rn＆＃34;之前没有空格。下面是一个使用mpg数据集的简单示例：

require(ggplot2)
test <- transform(mpg, drv = factor(drv, levels=c("4", "f", "r"),
        labels=c("Nitrate~as~NO[3]", "sum(x[i], i==1, n)", "x^222~Rn")))
ggplot(test, aes(displ, hwy)) +
geom_point() +
facet_wrap(~drv, labeller=label_parsed)

在前两个方面，可以实现大多数类型的角色/符号变化（甚至有些复杂的变化），但在第三个看似简单的情况下 - 如果帽子（＆＃34; ^＆＃34;）之前没有由一个角色和一个没有后跟空格指示符＆＃34;〜＆＃34; ...脚本每次都失败。

Answer 1

请改为尝试：

test <- transform(mpg, drv = factor(drv, levels=c("4", "f", "r"),
                                    labels=c("Nitrate~as~NO[3]", 
                                             "sum(x[i], i==1, n)", 
                                             "phantom(x)^222*Rn")))

我通常通过仔细查看?plotmath的信息然后进行大量的反复试验来解决这些问题。