Аннотируйте ggplot2 метки лица с латексом в R

Question

Для примера набора данных:

size = 10000
dist = seq(0, 10, length.out=size)
cohort.kv = list(A=3,B=40,C=44)
cohort = sample(names(cohort.kv), size, TRUE)
cohort.v = mapply(function(v) cohort.kv[[v]], cohort)
across.kv = list(ONE=1,TWO=2,THREE=3)
across = sample(names(across.kv), size, TRUE)
across.v = mapply(function(v) across.kv[[v]], across)
along.kv = list(FIVE=5, EIGHT=8, ELEVEN=11)
along = sample(names(along.kv), size, TRUE)
along.v = mapply(function(v) along.kv[[v]], along)
df = data.frame(
  dist=dist, cohort=cohort, across=across, along=along,
  value=sin(dist/across.v+cohort.v)*along.v
)
df$across = factor(df$across, levels=names(across.kv))
df$along = factor(df$along, levels=names(along.kv))

Я пытаюсь добавить латекс в метки фасетов. Этот ответ объясняет, как добавить латекс к ярлыкам ggplot.Приведенный ниже код создает граненый ggplot с латексом в метках оси и измененными метками фасетов.

library(ggplot2)
# install.packages("latex2exp", dependencies=TRUE)
library(latex2exp)
(
  ggplot(df, aes(x=dist, y=value, color=cohort))
  + geom_line()
  + facet_grid(
    rows=vars(across),
    cols=vars(along),
    labeller=labeller(
      across=c(ONE="UNO",TWO="DOS",THREE="TRES"),
      along=c(FIVE=TeX("$V_5$"),EIGHT=TeX("$V_8$"),ELEVEN=TeX("$V_11$"))
    )
  )
  + xlab(TeX("Distance ($\\delta$)"))
  + ylab(TeX("Intensity ($\\alpha$)"))
)

Линия along=c(FIVE=TeX("$V_5$"),EIGHT=TeX("$V_8$"),ELEVEN=TeX("$V_11$")) должна изменитьсяметки верхнего фасета вверху, но это не так.

Как я могу добавить латексные метки к граням?

Answer 1

Я уверен, что есть лучший способ сделать это, но один метод - изменить уровни:

levels(df$across) <- c(ONE="UNO", TWO="DOS", THREE="TRES")
levels(df$along) <- c(FIVE = TeX("$V_5$"), EIGHT = TeX("$V_8$"), ELEVEN = TeX("$V_{11}$"))

Затем используйте label_parsed для labeller:

ggplot(df, aes(x=dist, y=value, color=cohort)) +
 geom_line() +
 facet_grid(
  rows=vars(across),
  cols=vars(along),
  labeller=label_parsed
) +
  xlab(TeX("Distance ($\\delta$)")) +
  ylab(TeX("Intensity ($\\alpha$)"))

label_parsed интерпретирует метки как выражения заговора.