我想将上标添加到facet_wrap. 首先，我曾经bquote根据这篇文章组装文本：
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)
然后根据这篇文章更改级别和构面标签的名称，
levels(df21$trt)<-c(a,b,c,d)
但方面标签并没有改变任何东西。有什么帮助吗？先感谢您！