Подписи к рисункам научных названий + символы в текстовой таблице grob

Прежде всего, я хотел бы поблагодарить сэра Баптиста за помощь в улучшении моего сценария R, добавив заголовок в левом нижнем углу комбинированных графиков с помощью gtable / textGrob, как показано ниже:

library(grid)
library(gridExtra)
library(ggplot2)

p1 <- p2 <- ggplot()

g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)

g <- rbind(g1, g2)
caption <- textGrob("Figure 1. This is a caption", hjust=0, x=0)
g <- gtable::gtable_add_rows(g, unit(2,"mm") + grobHeight(caption), -1)
g <- gtable::gtable_add_grob(g, caption, nrow(g), l = 4, r = ncol(g))
grid.newpage()
grid.draw(g)

Однако я хочу добавить еще две вещи:

(1) Вставьте научное название в подпись, которая должна быть написана курсивом. - Например, основываясь на вышеупомянутой подписи, я хочу выделить курсивом только слово «есть», в то время как остальные текстовые строки.

(2) Я также добавлю символы в заголовок, например, точечные формы = с (1,22); colors = c («черный», «красный»); fill = c («красный», «черный»).

Как я собираюсь это сделать? Я начинающий пользователь программы R, поэтому ваша помощь очень ценится. Спасибо.

ОБНОВИТЬ:

Я уже обратился к запросу 1 с помощью @Docconcoct, @ user20650 и @baptiste, используя этот скрипт:

library(grid)
library(gridExtra)
library(ggplot2)

g1 <- ggplotGrob(pl)
g2 <- ggplotGrob(pl1)

g <- rbind(g1, g2)
caption <- textGrob(expression(paste("Figure 1. This",  italic(" is"), " a caption")), hjust=0, x=0)
g <- gtable::gtable_add_rows(g, unit(2,"mm") + grobHeight(caption), -1)
g <- gtable::gtable_add_grob(g, caption, nrow(g), l = 4, r = ncol(g))
grid.newpage()
grid.draw(g)

Что касается запроса 2, как сказал сэр @baptiste, в моем исходном письме к нему у меня уже есть легенда на комбинированных графиках. Однако в подписи к рисунку мне необходимо указать, что означают эти символы в легенде, а также некоторые другие детали сюжета. Основываясь на примере, приведенном сэром Батистом, мне нужно включить в заголовок то, что означает supp, а также символы OJ (темный круг) и VC (темный треугольник).

Еще раз большое спасибо!

Ответы на вопрос(2)

Ваш ответ на вопрос