relative Titel pro Zeile für mehrere Diagrammplots festlegen

Question

Gibt es eine Möglichkeit, 5 Untertitel für ein Diagramm aus 20 Grafiken in 4 Spalten und 5 Zeilen zu setzen?

Angehängt das Bild der Grafiken.

Ich habe versucht, Titel wie folgt einzufügen, aber durch Anpassen des Ausgabeplots werden die Titel verschoben.

mtext("Frankfurt (Forecast 2012 - 2033)", side = 3, line = -1.5, outer = TRUE) 

fand ich die folgenden Zeilen des Codes aber die scheinen nur zu einem der 20 Diagramme zu beziehen, und nicht das gesamte Grundstück

op <- par("usr") 
par(usr = c(0, 1, 0, 1)) 
text(0.5,0.5,"TEST") 
par(usr = op) 

http://i.imgur.com/j0AfMxE.png?1

Answer 1

Das ist mein Ansatz.

mat <- matrix(c(rep(1,4), 6:9, rep(2,4), 10:13, rep(3,4), 14:17, rep(4,4), 18:21, 
       rep(5,4), 22:25), ncol=4, byrow=T) 
mat     # 1-5: subtitle, 6-: mainplot 
layout(mat, heights=c(rep(c(1, 20), 5))) # heights setting (rough) 

par(mar=c(0,0,0,0)) 
for(i in 1:5) { 
    plot(0, 0, type="n", ann=F, axes=F) # plotting white paper & subtitle 
    mtext(side=1, line=0.2, "subtitle") # do it five times 
} 

par(mar=c(2, 2, 2.7, 1), mgp=c(3, 0.6, 0)) # margins and tick lab position set 
for(i in 1:20) { 
    plot(rnorm(30), ann=F)   # main plot 
    title(LETTERS[i], line=0.3)  # each title (don't use plot(main=)) 
}