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

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

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

Это выводит: введите описание изображения здесь

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


r ggplot2 facet-grid
person AMB    schedule 24.05.2019    source источник
comment
Я могу дать вам решение, но без использования facet_grid, а с использованием вместо этого ggpubr и создания каждой панели сюжета. Не знаю, будет ли это полезно для вас. Если будет, выложу.   -  person Santiago I. Hurtado    schedule 24.05.2019
comment
Это должна делать функция tag_facet из пакета egg stackoverflow.com/a/52217208/786542   -  person Tung    schedule 24.05.2019
comment
Это именно то, что я искал, и прекрасно работает. Спасибо!   -  person AMB    schedule 24.05.2019
comment
@AMB: не проблема. Не стесняйтесь публиковать ответ, чтобы помочь будущим читателям   -  person Tung    schedule 27.05.2019

Ответы (1)


arrow_upward
1
arrow_downward

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

 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
person maizer    schedule 24.05.2019