r - R中ggplot2标签内的下标

Question

这是这个问题的延续:Labeling facet strips in ggplot2

通过使用以下代码，我可以获得每个子图顶部的 Year = 2009、Year = 2010:

set.seed(1)
df=data.frame(year=rep(2009:2013,each=4),
              quarter=rep(c("Q1","Q2","Q3","Q4"),5),
              sales=40:59+rnorm(20,sd=5))
library(ggplot2)
ggplot(df) +
  geom_line(aes(x=quarter,y=sales,group=year))+
  facet_wrap(
    .~year,
    labeller = as_labeller(\(x) paste0("Year=", x)),
    strip.position = "top",
    scales = "free") +
  theme(#panel.spacing = unit(0, "lines"),
    strip.placement = "outside",
    axis.title.x=element_blank(),
    legend.position="none") 

如果我需要有下标，我应该如何修改上述代码，例如，我需要显示 Year a_b = 2009，而不是 Year = 2009

我尝试给予

... +
  facet_wrap(
    .~year,
    labeller = as_labeller(\(x) paste0("Year", bquote(a[b]) ,"=", x)),
    strip.position = "top",
    scales = "free"
  ) +
  ...

但是失败了。

Answer 1

您可以尝试下标的 unicode 值，例如

library(tidyverse)
set.seed(1)
df=data.frame(year=rep(2009:2013,each=4),
              quarter=rep(c("Q1","Q2","Q3","Q4"),5),
              sales=40:59+rnorm(20,sd=5))

ggplot(df) +
  geom_line(aes(x=quarter,y=sales,group=year))+
  facet_wrap(
    .~year,
    labeller = as_labeller(\(x) paste0("Year a\u2090 = ", x)),
    strip.position = "top",
    scales = "free") +
  theme(#panel.spacing = unit(0, "lines"),
    strip.placement = "outside",
    axis.title.x=element_blank(),
    legend.position="none")

^{创建于 2022 年 11 月 30 日 reprex v2.0.2}

这种方法是否有效将取决于您想要使用哪个下标字母，即有一个下标“a”(如上图所示)，但我认为没有下标“b”。