R 如何在ggplot中传递一个符号字符串以供bquote计算？

对于我在函数中创建的ggplot，轴标签会有所不同。一些标签有超级/下标，而其他标签没有。例如：

  m.data <- data.frame(x = runif(10), y = runif(10))
  x.labs <- c("rain, mm", "light*','~W~m^-2")  
  for (i in 1:2) {
     ggplot(m.data, aes(x = x, y = y)) +
        labs(title = bquote(.(x.labs[i])))
  }

---

在关于ggplot和bquote的许多问题中，似乎没有一个能解决像上标指示器这样的符号传递问题

另一种选择是在标题向量中使用

expression（）

，而不是

bquote（）

比如说

x.labs <- c("rain, mm", expression("light,"~W~m^-2))

ggplot(m.data, aes(x = x, y = y)) +
    labs(title = x.labs[2])

---

x.labs可能类似于
xlabs中的
expression（“light，~W~m^-2）
？如果您想将其作为[非常简短的]答案发布，我很乐意接受。非常感谢。
 title = x.labs[i]  

x.labs <- c("rain, mm", expression("light,"~W~m^-2))

ggplot(m.data, aes(x = x, y = y)) +
    labs(title = x.labs[2])