I would like to:

1. Use the unicode mathematical italic capital letters E (U 1D438), Y (U 1D44C), and X (U 1D44B)
2. Incorporate superscript

Desired style:

ggplot()  
  annotate(geom = "text", x=3.5, y=7.5, label = "\u1D438[\u1D44C^\u1D44B=1]")

Update 1, new attempts:

library(ggtext)

test <- tibble(x=3.5, y=7.5, 
               label = "