R 如何在ggplot2中使用刻面网格标题中的下标

我无法为最后一个字幕（pm10）创建下标。如何大写pm并创建下标“10”。目前名称为pm10

library(dlnm)
library(ggplot2)
library(reshape2)
library(plyr)
data <- chicagoNMMAPS
data1<-data[c(1,7:9,13)]
dmelt = melt(data1, id.vars = 'date')


ggplot(dmelt, aes(x = date, y = value)) + 
geom_line() + 
theme_bw() +
facet_wrap(~ variable, scales = 'free_y', ncol = 1)+ 
theme(strip.text.x = element_text(size=14,face="bold"),
strip.background = element_rect(colour="")) + 
labs(x = "Date") +
theme(axis.title=element_text(face="bold",size="14"),axis.text=element_text(size=14,face="bold")) +
theme(#panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
strip.background = element_blank(),
panel.border = element_rect(colour = "black"))

库（dlnm）
图书馆（GG2）
图书馆（E2）
图书馆（plyr）
数据因此，您可以使用labeller函数来实现这一点。不幸的是，
facet\u wrap
当前没有此功能，但是
facet\u grid
有此功能

vnames <-list(
'death' = 'death',
'cvd' = 'cvd',
'resp' = 'resp',
'pm10' = bquote(pm[10]))

vlabeller <- function(variable,value){
  return(vnames[value])
}

但是，它的外观可能与您想要的有所不同。在这种情况下，您可以直接处理情节本身的元素，但这要麻烦得多。该方法如下所述：

facet_grid(variable~., scales = 'free_y', labeller = vlabeller)