如何在我的多面标签之一中包含希腊符号？

我正在尝试使用 ggplot2 (v. 2_2.2.1) 创建一个绘图facet_wrap，并且我只需要在一个方面标签中包含一个希腊符号（共五个）。我尝试使用 Stack Overflow 上发布的代码：

• R 分面网格中分面标签的 R 希腊字母和普通字母
• 如何向facet_wrap中的标签添加表达式？
• 如何使用网格编辑 ggplot2 对象以将数学表达式添加到构面标签？

但没有任何成功（getGrob 不起作用，对于 mf_labeller 也是如此）。

有人能帮我吗？

这是示例代码：

df <- data.frame(genes = rep(c("BA","MLL","pos","neg","PMLalpha+"),5), value = sample(1:100, 25, replace=TRUE))
df$genes <- factor(df$genes, levels = c("BA","MLL","pos","neg","PMLalpha+"), ordered = TRUE)
ggplot(df,aes(x=genes, y=value)) + geom_boxplot()+ 
  facet_wrap(~genes, ncol = 5,scales = "free_x")+
  scale_x_discrete(name="",
               breaks = c("BA","MLL","pos","neg","PMLalpha+"),
               labels = c("BA","MLL","pos","neg",expression(paste("PML", alpha,"+"))))

我可以重命名 x 轴刻度，但我无法在构面标签中执行此操作。

这是一个使用的技巧labeller=label_parsed.

首先，定义标签df$genes使用要解析的表达式：

df$genes <- factor(df$genes, levels = c("BA","MLL","pos","neg","PMLalpha+"),
 ordered = TRUE, labels=c("BA","MLL","pos","neg",expression(paste("PML", alpha,"+"))))

然后使用labeller=label_parsed in facet_wrap:

ggplot(df,aes(x=genes, y=value)) + geom_boxplot() + 
  facet_wrap(~genes, ncol = 5, scales = "free_x", labeller = label_parsed)

正如您所看到的，这与 x 轴标签混淆，但您可以将其修复scale_x_discrete如下：

ggplot(df,aes(x=genes, y=value)) + geom_boxplot() + 
  facet_wrap(~genes, ncol = 5, scales = "free_x", labeller = label_parsed) +
  scale_x_discrete(name="",
               breaks = c("BA","MLL","pos","neg","paste(\"PML\", alpha, \"+\")"),
               labels = c("BA","MLL","pos","neg", expression(paste("PML", alpha,"+"))))

Edit:为了回应发布的后续问题，这里是使用的解决方案label_parsed对于多个变量。在变量字符串中包含请求的空间。

df$var2 <- c(rep(c('trt a','trt b'), NROW(df)/2),'trt a')
df$var2 <- factor(df$var2, levels=c('trt a','trt b'), ordered=T, labels=c(expression(paste("trt ", alpha)), expression(paste("trt ", beta))))

ggplot(df,aes(x=var2, y=值)) + geom_boxplot() + facet_wrap（〜var2，ncol = 5，scale =“free_x”，labeller = label_parsed）

修复 x 轴：

ggplot(df,aes(x=var2, y=value)) + geom_boxplot() + 
  facet_wrap(~var2, ncol = 5, scales = "free_x", labeller = label_parsed) + 
  scale_x_discrete(name="",
                 breaks = c(expression(paste("trt ", alpha)), expression(paste("trt ", beta))),
                 labels = c(expression(paste("trt ", alpha)), expression(paste("trt ", beta))))