Greek Letters in GGplot

[davidkim2]

Hi.

This is a ggplot that I generated.

I am looking to change the title name for each ggplot to greek letter symbols. I have typed the greek letters I want to replace each title with:

"GlobalConsumption": \Delta c^{G}_{t}
"cdiff": \Delta c^{US}_{t} - \Delta c^{ROW}_{t}
"Dollar": Dollar_{t}
"USWealthShare": \omega^{US}_{t}
"USWealthShareChange": \Delta \omega^{US}_{t}

Any ideas how I might achieve this? These are GGplots generated from the code:

"

#Top Panel

g1a=ggplot(plotdf,aes(x=index,y=value)) +
geom_line() +facet_wrap(~Impulse, scales="free") +
geom_ribbon(aes(ymin=Lower,ymax=Upper), fill = "blue", alpha = 0.3, color = NA) +
geom_point() +
geom_line() +
theme_bw()

#Bottom Panel

g1= ggplot(WS,aes(x=index,y=value)) +
geom_line() +facet_wrap(~Impulse, scales="free") +
geom_ribbon(aes(ymin=Lower,ymax=Upper), fill = "blue", alpha = 0.3, color = NA) +
geom_point() +
geom_line() +
theme_bw()

#Combining

figurea <- ggarrange(g1a,g1,
ncol = 1, nrow = 2)

"

[FJCC]

Here are some examples of Greek letters, subscripts, and superscripts in ggplot facet titles.

library(ggplot2)
DF <- data.frame(X=rep(1:4,4),Y=rnorm(16),
                 Facet=rep(c("alpha[c]^k","beta","Gamma","Delta[C[i]^k]"),each=4))
ggplot(DF,aes(x=X,y=Y))+geom_point()+
  facet_wrap(~Facet,labeller = label_parsed)

^{Created on 2021-11-17 by the reprex package (v2.0.1)}

[startz]

@FJCC , you make this look very easy. Could you give a bit of explanation about how to think of getting the Greek letters in for those of us with no idea where the magic comes in?

[FJCC]

I found the use of labeller = label_parsed in this post.

how to apply subscript in the facet_grid function of ggplot

I should have noted that in my post. The syntax for Greek letters and superscripts was mostly due to guessing.

[startz]

Thank you @FJCC . Very helpful.