Как я могу использовать grid для редактирования объекта ggplot2 для добавления математических выражений в метки фасетов?

Question

Мне нужно поместить греческие буквы в метки фасетов, используя facet_wrap () в ggplot2.Я нашел Ссылку , описывающую то же самое для facet_grid ().Я применил это для своих данных, используя следующий код:

levels(parameters) <- c(expression(alpha), expression(beta))  
p + facet_grid(.~parameters, labeller = label_parsed)

Это прекрасно работает и делает именно то, что я хочу.Однако вместо этого мне нужно использовать facet_wrap () (чтобы получить отдельные оси Y для обоих параметров, а также для отображения еще большего количества параметров в разных столбцах и строках).Я попробовал следующее:

p + facet_wrap(.~parameters, labeller = label_parsed)  ,  or  
p + facet_wrap(.~parameters)

, но это не сработало, потому что в facet_wrap нет функции "labeller".Как это можно сделать с помощью сетки?

Answer 1

Этот пример должен помочь вам начать:

library("ggplot2")
library("grid")

d <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
            geom_point() +
            facet_wrap(~Species)
grob <- ggplotGrob(d)
strip_elem <- grid.ls(getGrob(grob, "strip.text.x", grep=TRUE, global=TRUE))$name

grob <- grid::editGrob(grob, strip_elem[1], label=expression(alpha[1]))
grob <- grid::editGrob(grob, strip_elem[2], label=expression(beta^2))
grob <- grid::editGrob(grob, strip_elem[3], label=expression(hat(gamma)))

grid.draw(grob)

Обновление: это работает с ggplot2 версией 0.9.3 (хотя и с использованием grid - хрупкий способ изменить ggplot2 графику)

grob[["grobs"]][["strip_t.1"]][["children"]][[2]][["label"]] <- expression(alpha[1])
grob[["grobs"]][["strip_t.2"]][["children"]][[2]][["label"]] <- expression(beta^2)
grob[["grobs"]][["strip_t.3"]][["children"]][[2]][["label"]] <- expression(hat(gamma))
grid.draw(grob)