我想将上标添加到facet_wrap的条带文本中。首先，我使用bquote根据this post汇总文本：
a <- bquote('2007, pop = 5.6 p' ~ m^-2)
b <- bquote('2007, pop = 2.8 p' ~ m^-2)
c <- bquote('2008, pop = 5.6 p' ~ m^-2)
d <- bquote('2009, pop = 5.6 p' ~ m^-2)
然后根据this post，
更改关卡和构面标签的名称levels(df21$trt)<-c(a,b,c,d)
但是小平面标签没有改变任何东西。有帮助吗？提前谢谢！