r - 如何在ggplot facet_wrap文本中添加数学符号？

Question

This question解释如何在绘图中添加数学符号。但是，当文本应该存储在数据框本身中时，这不起作用。这是出现在facet_wrap 子图的小框中的文本的情况。

这是一个可重现的示例。举例来说，我有 T 和 m³ 格式的数据，并且我想绘制这样的图。

library(ggplot2)
dtf <- data.frame(year = rep(1961:2010,2),
                  consumption = cumsum(rnorm(100)),
                  item = rep(c("Tea bags","Coffee beans"),each=50),
                  unit = rep(c("T","m^3"),each=50))
ggplot(data=dtf)+
    geom_line(aes(x=year, y=consumption),size=1) +
    ylab(expression(paste("Consumption in T or ",m^3))) +
    scale_x_continuous(breaks = seq(1960,2010,10)) +
    theme_bw() + facet_wrap(item~unit, scales = "free_y")

ylab(表达式(m^3)) 正确显示单位。我怎样才能在侧面显示类似的立方米？

Answer 1

将 labeller = label_parsed 添加到您的 facet_wrap 函数，将单位格式设置为 m^3，并将标签中的空格替换为 >~

library(ggplot2)
dtf <- data.frame(year = rep(1961:2010,2),
                  consumption = cumsum(rnorm(100)),
                  item = rep(c("Tea~bags","Coffee~beans"),each=50),
                  unit = rep(c("T","m^3"),each=50))
ggplot(data=dtf)+
  geom_line(aes(x=year, y=consumption),size=1) +
  ylab(expression(paste("Consumption in T or ",m^3))) +
  scale_x_continuous(breaks = seq(1960,2010,10)) +
  theme_bw() + facet_wrap(item~unit, scales = "free_y",labeller = label_parsed)