Jak dodawać adnotacje na poletkach lub między poletkami w panelach wielopunktowych w R

Jeśli mam kilka wątków w jednym panelu, chciałbym móc umieścić adnotacje tekstowe, które przechodzą przez więcej niż jeden obszar wykresu lub przechodzą między obszarami wydruku. Jestem pewien, że musi być jakiś sposób, aby to zrobić, ale potrzebuję pomocy, aby dowiedzieć się, jak to zrobić.
Oto kilka fałszywych danych do utworzenia czterech wykresów na jednym panelu:

x1 = rnorm(100)
x2 = rnorm(100)
x3 = rnorm(100)
x4 = rnorm(100)

par(mfrow=c(2,2)) 
hist(x1, xlab="", main="Group A")
hist(x2, xlab="", main="Group B")
hist(x3, xlab="", main="")
hist(x4, xlab="", main="")

Spowoduje to utworzenie panelu wielotekstowego poniżej, z wyjątkiem tego, że dodałem również tekst na czerwono. Dodałem czerwony tekst, dodając adnotację do pliku PDFpo Stworzyłem panel wykresów w R, a następnie zapisałem go w formacie PDF. To, czego chciałbym się nauczyć, to programowa adnotacja panelu graficznego w R, zamiast konieczności zapisywania go i dodawania adnotacji do zapisanego pliku.
Normalnie po prostu dodam adnotację za pomocątext() lubmtext(). Ale to działa tylko wtedy, gdy adnotujesz pojedynczy wykres. Czy istnieje sposób dodawania adnotacji względem współrzędnych całego panelu 4 wykresów? W tej chwili szukam rozwiązania w grafice bazowej, ale jeśli ktoś wie, jak zrobić coś podobnego w ggplot2 lub sieci kratowej, chciałbym to zobaczyć.

questionAnswers(3)

yourAnswerToTheQuestion