Lugar título del panel de G. múltiple con ggplot2

Question

De la ayuda encuentran aquí he conseguido crear este panel G. múltiple: con el siguiente código:

library(zoo) 
library(ggplot2) 

datos=read.csv("paterna.dat",sep=";",header=T,na.strings="-99.9") 

datos$dia=as.POSIXct(datos[,1], format="%y/%m/%d %H:%M:%S") 

datos$Precipitación[is.na(datos$Precipitación)]=0 
xlim = as.POSIXct(c("2010-05-12 00:00:00", "2010-05-12 23:50:00")) 
ylim = trunc(max(datos$Precipitación) + 5) 
tmax = trunc(max(datos$Temperatura) + 5) 
tmin = trunc(min(datos$Temperatura) - 5) 

tmx = max(datos$Temperatura) 
tmxpos=which.max(datos$Temperatura) 
tmn = min(datos$Temperatura) 
tmnpos=which.min(datos$Temperatura) 

tmp=ggplot(data=datos,aes(x=dia, y=Temperatura)) + geom_line(colour="red") + ylab("Temperatura (ºC)") + 
xlab(" ") + scale_x_datetime(limits=xlim ,format = "%H",major='hour') + scale_y_continuous(limits = c(tmin,tmax)) + geom_text(data=datos[tmxpos,], label=tmx, vjust=-1.5, colour="red") + geom_text(data=datos[tmnpos,], label=tmn, vjust=1.5, colour="blue") 

pre=ggplot(data=datos,aes(x=dia, y=Precipitación)) + geom_bar(colour="blue",stat="identity",fill="blue") + 
ylab("Precipitación (l)") + xlab("Hora solar") + scale_x_datetime(limits=xlim ,format = "%H",major='hour') + scale_y_continuous(limits=c(0,ylim)) 

vel=ggplot(data=datos,aes(x=dia, y=Velocidad)) + geom_line(colour="brown") + ylab("Velocidad (km/h)") + xlab(" ") + scale_x_datetime(limits=xlim ,format = "%H",major='hour') + scale_y_continuous(limits = c(0,100)) 

dir=ggplot(data=datos,aes(x=dia, y=Dirección)) + geom_line(colour="brown") + ylab("Dirección viento (grados)") + xlab(" ") + scale_x_datetime(limits=xlim ,format = "%H",major='hour') + scale_y_continuous(limits = c(0,360)) 

hum=ggplot(data=datos,aes(x=dia, y=Humedad.Relativa)) + geom_line(colour="blue") + ylab("Humedad relativa (%)") + xlab(" ") + scale_x_datetime(limits=xlim ,format = "%H",major='hour') + scale_y_continuous(limits = c(0,100)) 

grid.newpage() 
pushViewport(viewport(layout = grid.layout(3, 2))) 
print(tmp, vp = viewport(layout.pos.row = 1, layout.pos.col = 1))   
print(vel, vp = viewport(layout.pos.row = 1, layout.pos.col = 2)) 
print(dir, vp = viewport(layout.pos.row = 2, layout.pos.col = 2)) 
print(hum, vp = viewport(layout.pos.row = 2, layout.pos.col = 1)) 
print(pre, vp = viewport(layout.pos.row = 3, layout.pos.col = 1:2)) 

Ahora me falta el título de la G. múltiple que quiero ser el conocido. Nombre de estación. No he encontrado cómo establecer el título principal en grid.newpage o viewport. He leído sobre grid.arrange pero no he podido encontrar la forma de usarlo en mi caso.

¿Cómo se puede hacer esto? Seguro que será una pregunta fácil para ti.

puede encontrar los datos de origen en http://ubuntuone.com/4G01ifn7cJ1jMIOKh

Gracias de antemano

ACTUALIZACIÓN: Gracias a koshke he encontrado la solución. El código de trabajo es:

grid.newpage() 
pushViewport(viewport(layout = grid.layout(4, 2, heights = unit(c(0.5, 5, 5, 5), "null")))) 
grid.text("MAIN TITLE", vp = viewport(layout.pos.row = 1, layout.pos.col = 1:2)) 
print(tmp, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))   
print(vel, vp = viewport(layout.pos.row = 2, layout.pos.col = 2)) 
print(dir, vp = viewport(layout.pos.row = 3, layout.pos.col = 2)) 
print(hum, vp = viewport(layout.pos.row = 3, layout.pos.col = 1)) 
print(pre, vp = viewport(layout.pos.row = 4, layout.pos.col = 1:2)) 

Answer 1

Si he entendido bien lo que quiere hacer, es probable que pueda utilizar +opts(title = XXX):

p1 <- ggplot(mtcars, aes(factor(cyl))) + geom_bar() 
p2 <- ggplot(mtcars, aes(wt, mpg)) + geom_point() 
p3 <- p2 + geom_line() 

pushViewport(viewport(layout = grid.layout(2, 2))) 
print(p1 + opts(title = "bar"), 
    vp = viewport(layout.pos.row = 1, layout.pos.col = 1))  
print(p2 + opts(title = "point"), 
    vp = viewport(layout.pos.row = 1, layout.pos.col = 2))  
print(p3 + opts(title = "point and line"), 
    vp = viewport(layout.pos.row = 2, layout.pos.col = 1:2)) 

ACTUALIZADO

Aquí se presenta una ejemplo:

pushViewport(viewport(layout = grid.layout(3, 2, heights = unit(c(1, 4, 4), "null")))) 
grid.text("title of this panel", vp = viewport(layout.pos.row = 1, layout.pos.col = 1:2)) 
print(p1, vp = viewport(layout.pos.row = 2, layout.pos.col = 1)) 
print(p2, vp = viewport(layout.pos.row = 2, layout.pos.col = 2)) 
print(p3, vp = viewport(layout.pos.row = 3, layout.pos.col = 1:2)) 

lo que hay que hacer es:

1. Hacer una fila adicional en grid.layout
2. ajustar el ancho
3. textGrob Dibujar en la fila de visualización adicional.

Answer 2

library(gridExtra) 

p <- ggplot() 

grid.arrange(p,p,p,p,p, top = "Title", 
      layout_matrix = matrix(c(1,2,3,4,5,5), ncol=2, byrow=TRUE))