facet as_labeller不使用数学表达式R

当使用类似

labeller=as_labeller（old=表达式（粘贴（“浓度（ng g“^”-1“，”））的东西时，小平面的数学表达式通常工作正常）

。现在，我不得不做一些不同的事情来获得相同的结果。有一些旧帖子说，在新版本中，一些选项不再工作，所以我想知道这里是不是这样，或者我的系统有什么问题

data(environmental) #lattice package
environmental_long<-environmental%>%
  dplyr::mutate(day=seq(1,length(environmental$ozone),by = 1))%>%
  tidyr::gather(key = "all_variables_name",value="values_variable",1:4)
environmental_long$names<-plyr::revalue(environmental_long$all_variables_name,c("ozone"="hat(x)~ozone~concentration(ppb)~'\u2030'"))

ggplot(environmental_long,aes(x=day,y=values_variable,colour=all_variables_name))+
  geom_point()+
  geom_smooth()+
  facet_wrap(names~.,scales = "free_y", strip.position = "left", #switch = "y"  for facet_wrap
             labeller = label_parsed
  )+
  theme_bw()+
  theme(legend.position = "none",
        strip.placement = "outside",
        axis.title.y = element_blank(),
        strip.background = element_rect(fill="white"))

数据（环境）#晶格封装
环境(龙)
dplyr：：突变（天=序列（1，长度（环境$臭氧），由=1））%>%
tidyr:：gather（key=“all\u variables\u name”，value=“values\u variable”，1:4）
环境_long$names想知道你是否尝试过这个方法？@Tung是的，它非常有效。我只是对我过去使用
expression（paste（））的老方法有点困惑
因为现在它没有显示包括上标或下标的新文本。另外，如果最好使用您提到的选项，或者在新标签的每个元素之后使用
~
，那么在以后的绘图中，我不会遇到同样的问题。