Antes de tudo, gostaria de agradecer a Sir Baptiste por me ajudar a melhorar meu script R, adicionando uma legenda na parte inferior esquerda dos gráficos combinados usando gtable / textGrob, como mostrado abaixo:

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)

No entanto, quero adicionar mais duas coisas:

(1) Insira um nome científico na legenda, que deve ser escrita em itálico. - Por exemplo, com base na legenda mencionada acima, quero colocar em itálico apenas a palavra "is" enquanto o restante está em texto simples.

(2) Também adicionarei símbolos na legenda, por exemplo formas pontuais = c (1,22); cores = c ("preto", "vermelho"); fill = c ("vermelho", "preto").

Como vou fazer isso? Eu sou um usuário iniciante do programa R, portanto, sua ajuda é muito apreciada. Obrigado.

ATUALIZAR:

Eu já endereçei a consulta 1 com a ajuda de @Docconcoct, @ user20650 e @baptiste usando este script:

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)

Para a consulta 2, conforme declarado por Sir @baptiste, no meu email original para ele, eu já tenho uma legenda nas plotagens combinadas. No entanto, na legenda da figura, preciso indicar o que significam esses símbolos na legenda e alguns outros detalhes da trama. Com base no exemplo dado por Sir baptiste, preciso incluir o que supp significa, bem como os símbolos de OJ (círculo escuro) e VC (triângulo escuro) na legenda.

Mais uma vez, muito obrigado!