R `parse()` 下标混合数字和字母

Question

我正在尝试使用 parse() 在下标中混合字母和数字的 ggplot 方面标签中显示下标。

这个有效:

>parse(text="cI[933]")

还有这个:

>parse(text="cI[W]")

但不是这些:

>parse(text="cI[933W]")
Error in parse(text = "cI[933W]") : <text>:1:7: unexpected symbol
1: cI[933W
          ^

> parse(text="cI[9W33]")
Error in parse(text = "cI[9W33]") : <text>:1:5: unexpected symbol
1: cI[9W33
        ^

以 ggplot 为例:

data(mtcars)
mtcars$cyl2 <- factor(mtcars$cyl, labels = c("cI[123]", "cI[ABC]", "cI[456]"))
qplot(wt, mpg, data = mtcars) + facet_grid(. ~ cyl2, labeller = label_parsed)

这很好用，但是:

data(mtcars)
mtcars$cyl2 <- factor(mtcars$cyl, labels = c("cI[AB3]", "cI[2CD]", "cI[EF1]"))
qplot(wt, mpg, data = mtcars) + facet_grid(. ~ cyl2, labeller = label_parsed)

...没有。

Answer 1

这是失败的，因为根据 R 解析器，2CD 不是合法符号(符号必须以字母字符开头，并且只能包含字母数字 + [._]字符(我认为))。作为一种快速解决方法，您可以使用单引号保护非法符号:

mtcars$cyl2 <- factor(mtcars$cyl, 
    labels = c("cI[AB3]", "cI['2CD']", "cI[EF1]"))

引号不会出现在绘图标签中。

来自introduction to R :

Normally all alphanumeric symbols are allowed (and in some countries this includes accented letters) plus ‘.’ and ‘_’, with the restriction that a name must start with ‘.’ or a letter, and if it starts with ‘.’ the second character must not be a digit.