En primer lugar, me gustaría agradecer a Sir Baptiste por ayudarme a mejorar mi script R al agregar un título en la parte inferior izquierda de las parcelas combinadas usando gtable / textGrob como se muestra a continuación:

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)

Sin embargo, quiero agregar dos cosas más:

(1) Inserte un nombre científico en el título, que debe escribirse en cursiva. - Por ejemplo, según el título mencionado anteriormente, quiero poner en cursiva solo la palabra "es" mientras que el resto está en texto plano.

(2) También agregaré símbolos en el título, p. formas de puntos = c (1,22); colores = c ("negro", "rojo"); relleno = c ("rojo", "negro").

¿Cómo voy a hacer esto? Soy un usuario novato del programa R, por lo tanto, su ayuda es muy apreciada. Gracias.

ACTUALIZAR:

Ya he abordado la consulta 1 con la ayuda de @Docconcoct, @ user20650 y @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 la consulta 2, como lo indicó Sir @baptiste, en mi correo electrónico original, ya tengo una leyenda en las parcelas combinadas. Sin embargo, en el pie de figura, necesito indicar qué significan esos símbolos en la leyenda y algunos otros detalles de la trama. Basado en el ejemplo dado por Sir Baptiste, necesito incluir lo que significa supl, así como los símbolos de OJ (círculo oscuro) y VC (triángulo oscuro) en el título.

De nuevo, muchas gracias!