ggplot轴标签中的下标字母

Question

另一张要发布的图表，有一天调整了ggplot2中的内容……我在抱怨吗？我不确定...

dat <- data.frame(x = rnorm(100), y = rnorm(100))

ggplot(dat, aes(x=x,y=y)) +

    geom_point() +

    labs(y=expression(Blah[1]))

dat <- data.frame(x = rnorm(100), y = rnorm(100))

ggplot(dat, aes(x=x,y=y)) +

    geom_point() +

    labs(y=expression(Blah[1d]))

我正在尝试找出如何在轴标签中使用下标字母。第一个示例仅是一个数字而起作用，只要方括号中有一个字符，它就会失败。Blah [subscript（1d）]本质上是我所需要的，但是我无法弄清楚如何使它带有下标字母。尝试过包括paste（）等的变体。

当然，更令人沮丧的是...

labs(y=expression(Blah[12])) -这有效

labs(y=expression(Blah[d])) -这有效

labs(y=expression(Blah[d1])) -这有效

labs(y=expression(Blah[1d])) -这失败了。

有什么想法吗？