r - R：ggplot2：facet_grid：如何在少数（不是全部）标签中包含数学表达式？

Question

我遇到了一些事情ggplot2。我阅读了大部分相关帖子，尝试了一些东西，但没有找到任何真正的解决方案。

我想在我的标签中包含数学表达式facet_gridswith ggplot2。

• 在原始文件中，我无法写入名称 µg.L-1
• 在标题和轴上我可以做到，例如：： qplot(day, activity, data=a) +xlab(expression("100 µg "*.L^"-1"*""))这很好用。

• 我该怎么做 facet_labels ？我可以设置级别并重命名标签因子，但不考虑表达式，例如：

  levels(a$group) <- c("control", expression("100 µg "*.L^"-1"*""))

  qplot(…, facets=~group)

结果 ：

方面 1 的标签写在图上：控制

刻面 2 的标签写在图上：“100 µg” .L^“-1” “”……</p>

我不想那样。

我不想使用facet_grid(.~group, labeller=label_bquote(…))，因为我不希望我的所有标签都遵循相同的表达式。我想手动一个一个地编辑标签......我尝试了bquote(…)而不是expression(…)但同样的坏结果发生了

有人对此有任何线索吗？

---

一个例子：我定义了一个数据框：

activity<- as.numeric(c("44","41","48","43","42","45","44","39", "47", "68", "88", "57"))
group<-c("first","first","first","first","first","first",
         "second","second","second","second","second","second")
day<- c("0", "0", "0", "20","20", "20","0", "0", "0", "20","20", "20" )
a<-data.frame(activity, group, day)

我情节：

require (ggplot2) 

qplot(day, activity, facets=.~group, data=a, ylim=c(25,90))

我想更改构面标签的名称和 y 轴：

levels(a$group)<- c("control", expression("100 µg "*.L^"-1"*""))
qplot(day, activity, facets=.~group, data=a, ylim=c(25,90),
  ylab=expression("fmol "*.µl^"-1"*""))

它适用于 y 轴，但是对于构面标签，它不起作用......有什么线索吗？

Answer 1

建议的解决方案：

先决条件：

activity <- as.numeric(c("44", "41", "48", "43", "42", "45", 
  "44", "39", "47", "68", "88", "57"))
group <- c("first", "first", "first", "first", "first", "first", 
  "second", "second", "second", "second", "second", "second")
day <- c("0", "0", "0", "20", "20", "20", "0", "0", "0", "20", 
  "20", "20")
a <- data.frame(activity, group, day)
require(ggplot2)
levels(a$group) <- c("control", expression("100 µg " * .L^"-1" * ""))

建议的解决方案：

p1 <- qplot(day, activity, data = a)
p1 + facet_grid(. ~ group, labeller = label_parsed)

结果：

解释

我们将标签结构创建为字符串，在其中创建公式，注意用于~替换空格......然后我们告诉facet_grid()通过设置来解析作为公式传递给它的标签字符串labeller = label_parsed......

注意：显示的详细信息在 中进行了描述?plotmath，但请注意geom_text()andfacet_grid()使用字符串，而不是表达式。

我希望以上内容有所帮助。

参考：

请参阅 Hagley Wickham 的贴标机页面...：https ://github.com/hadley/ggplot2/wiki/labeller

Answer 2

您可以使用 label_parsed，前提是您的所有标签都是有效的表达式（如有必要，您可以将文本放在引号内）

library(ggplot2) 
levels(a$group)<- c("'control test'", "100~mu*g*'.L'^-1")
ggplot(a) + facet_grid(.~group, labeller=label_parsed)