Добавление меток к каждому отдельному графику с помощью facet_grid

Question

Я пытаюсь добавить метки (заглавные буквы) к каждому графику в следующем facet_grid:

p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p + facet_grid(drv ~ cyl)

Это выводит:

То, что я хотел бы иметь, это: Основные проблемы, с которыми я сталкиваюсь: 1) Моя ось Y свободно масштабируется, поэтому ввод конкретных координат для каждого из них не работает. 2) Я не уверен, какие ключевые слова мне следует искать здесь, я уверен, что есть способ сделать это в facet_grid, но я не могу его найти.

Answer 1

Как насчет этого? Исправление положения метки как левого верхнего угла каждой панели графика:

 p + facet_grid(drv ~ cyl)+ annotate('text', label = LETTERS[1:12], x=min(mpg$displ), y=max(mpg$cty))

Вы можете заменить label = c ('aaa', 'bb', 'fff' ....) всем, что захотите, но оно должно быть таким же числом ваших фасетных графиков.

Вы также можете точно настроить положение этикетки, пропорциональное обеим осям, используя:

x=mean(mpg$displ)*0.6, y=max(mpg$cty)*0.97