Zunächst möchte ich Sir Baptiste dafür danken, dass er mir geholfen hat, mein R-Skript zu verbessern, indem er links unten in den kombinierten Darstellungen eine Beschriftung mit gtable / textGrob hinzufügte, wie unten gezeigt:

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)

Ich möchte jedoch noch zwei Dinge hinzufügen:

(1) Fügen Sie einen wissenschaftlichen Namen in die Beschriftung ein, der kursiv geschrieben werden soll. - Zum Beispiel möchte ich, basierend auf der oben erwähnten Überschrift, nur das Wort "ist" kursiv schreiben, während der Rest im Klartext ist.

(2) Ich werde auch Symbole in die Beschriftung einfügen, z. Punktformen = c (1,22); Farben = c ("schwarz", "rot"); fill = c ("rot", "schwarz").

Wie mache ich das? Ich bin ein Anfänger des R-Programms, daher wird Ihre Hilfe sehr geschätzt. Vielen Dank

AKTUALISIEREN

Ich habe Abfrage 1 bereits mithilfe von @Docconcoct, @ user20650 und @baptiste mithilfe dieses Skripts adressiert:

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)

Für Abfrage 2, wie von Sir @baptiste in meiner ursprünglichen E-Mail an ihn angegeben, habe ich bereits eine Legende auf den kombinierten Parzellen. In der Bildunterschrift muss ich jedoch angeben, was diese Symbole in der Legende bedeuten, und einige andere Details der Handlung. Anhand des von Sir Baptiste gegebenen Beispiels muss ich die Bedeutung von supp sowie die Symbole für OJ (dunkler Kreis) und VC (dunkles Dreieck) in die Beschriftung aufnehmen.

Again, vielen Dank!