Fonte matemática para letras (por exemplo, x) em legendas ggplot R

Minha primeira ideia foi usar Unicode, mas isso exige que o usuário os saiba de cor ou os pesquise na internet. Então, pensei: por que não usar extrafontuma fonte caligráfica para textos matemáticos e uma fonte normal, como Calibripara textos não matemáticos, italice depois misturá-las?expression('x'[italic('0')])

library(ggplot2)
library(extrafont)
library(showtext)

#system.fonts <- systemfonts::system_fonts() # look into your system's fonts

font_add("LucidaCalligraphy-Italic", "LCALLIG.TTF", italic = "calibri.ttf") # LaTeX uses Calligraphic for MathCal

showtext_auto()

ggplot(data.frame(
  x = c(1,2),
  y = c(1,2),
  group = c("A", "B")
), aes(x = x, y = y, color = group)) +
  geom_point() +
  labs(color = expression('x'[italic('0')])) + 
  theme(text = element_text(size = 22),
        legend.title = element_text(family = "LucidaCalligraphy-Italic"))

dando

Se expression(italic(.))algum truque gráfico "básico" similar não funcionar, você pode considerar ggtextpermitir alguns atributos HTML e Markdown.

library(ggplot2)
transform(mtcars, ltr = sprintf("_X<sub>%s</sub>_", cyl)) |>
  ggplot(aes(cyl, disp, fill=ltr)) +
  geom_violin() +
  theme(legend.text = ggtext::element_markdown())

Isso não acrescenta nada de especial ao uso de pelo KacZdr expression(italic(.)), então, se for suficiente, você pode evitar um pequeno inchaço de pacotes. No entanto, o uso de ggtextpode permitir coisas que não seriam tão fáceis de fazer em outros lugares.

ggplot(df, aes(x, y, color = grp)) +
  geom_point() +
  labs(color = expression(italic(x[0])))

Segunda opção:

legend_label <- "𝒙₀"

ggplot(df, aes(x, y, color = grp)) +
  geom_point() +
  scale_color_discrete(name = legend_label) +
  theme(legend.title = element_text(size = 18))