Ich verwende ggplot2, um Niederschlags-Barplots zu verbessern.

Hier ist ein reproduzierbares Beispiel für das, was ich erreichen möchte:

library(ggplot2)
library(gridExtra)
secu <- seq(1, 16, by=2)
melt.d <- data.frame(y=secu, x=LETTERS[1:8])
m <- ggplot(melt.d, aes(x=x, y=y)) +
  geom_bar(fill="darkblue") + 
  labs(x="Weather    stations", y="Accumulated Rainfall [mm]") +
  opts(axis.text.x=theme_text(angle=-45, hjust=0, vjust=1),
       title=expression("Rainfall"), plot.margin = unit(c(1.5, 1, 1, 1), "cm"),
       plot.title = theme_text(size = 25, face = "bold", colour = "black", vjust = 5))
z <- arrangeGrob(m, sub = textGrob("Location", x = 0, hjust = -3.5, vjust = -33, gp = gpar(fontsize = 18, col = "gray40"))) #Or guessing x and y with just option
z

Ich weiß nicht, wie ich es vermeiden soll, auf hjust und vjust auf ggplot2 raten zu müssen. Gibt es eine bessere Möglichkeit, einen Untertitel einzufügen (nicht nur mit \ n, sondern mit einem Untertitel mit unterschiedlicher Textfarbe und -größe)?

Ich muss in der Lage sein, mit ggsave zu verwenden, um eine pdf-Akte zu haben.

Hier sind zwei verwandte Fragen:

Fügen Sie eine Fußnotenangabe außerhalb des Grundstücksbereichs in R?

Wie kann ich einen Untertitel hinzufügen und die Schriftgröße von ggplot-Plots in R ändern?

Danke für jede Hilfe.