Kolejny wykres do publikacji, kolejny dzień, w którym ulepszono rzeczy w ggplot2 ... Czy ja syczę? Nie jestem pewny...

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]))

Próbuję dowiedzieć się, jak mieć litery indeksu w etykiecie osi. Pierwszy przykład działa, ponieważ jest to tylko liczba, gdy tylko pojawi się znak w nawiasach kwadratowych, zawiedzie. Blah [indeks dolny (1d)] jest w zasadzie tym, czego potrzebuję, ale nie mogę się dowiedzieć, jak sprawić, żebym miał litery w indeksie dolnym. Próbowałem odmian, w tym wklejania () itp.

Oczywiście, aby dodać frustracji ...

labs(y=expression(Blah[12])) - to działa

labs(y=expression(Blah[d])) - to działa

labs(y=expression(Blah[d1])) - to działa

labs(y=expression(Blah[1d])) - to się nie udaje.

Myśli?