Ярлыки R-фасетов с выражениями, использующими label_parsed

Question

Я пытаюсь поместить выражения в метки фасетов с помощью label_parsed, но безуспешно:

library(ggplot2)
mpg3 <- mpg
levels(mpg3$drv)[levels(mpg3$drv)=="4"] <- "4^{wd}"
levels(mpg3$drv)[levels(mpg3$drv)=="f"] <- "- Front %.% e^{pi * i}"
levels(mpg3$drv)[levels(mpg3$drv)=="r"] <- "4^{wd} - Front"


ggplot(mpg3, aes(x=displ, y=hwy)) + geom_point() +
  facet_grid(. ~ drv, labeller = label_parsed)

В графике , который я получаю, отсутствуют выражения - метки фасетов содержат исходные уровниПеременная drv.

Если я наберу levels(mpg3$drv), я получу character(0).

Answer 1

Есть две проблемы - во-первых, mpg$drv это символ, а не фактор, а во-вторых, вам нужно установить метки факторов, а не уровни.Я думаю, это то, что вы хотите ...

mpg3 <- mpg
mpg3$drv <- factor(mpg3$drv,
                   levels=c("4","f","r"),
                   labels=c("4^{wd}","- Front %.% e^{pi * i}","4^{wd} - Front"))

ggplot(mpg3, aes(x=displ, y=hwy)) + 
      geom_point() +
      facet_grid(. ~ drv, labeller = label_parsed)