cambiar ambos títulos de leyenda en un ggplot con dos leyendas

Tengo dos leyendas en mi ggplot con dos títulos de leyenda diferentes (creados automáticamente desde ggplot() ). Ahora, quiero cambiar estos títulos de leyenda. + labs(colour = "legend name") solo cambia el segundo título de leyenda. ¿Cómo puedo cambiar el primero también?

Data de muestra:

 dataset <- structure(list(date = structure(c(1264572000, 1266202800, 1277362800), class = c("POSIXt", "POSIXct"), tzone = ""), x1 = c(-0.00183760994446658, 0.00089738603087497, 0.000423513598318936), x2 = c("approach x","approach y","approach z"), x3 = c("Type1", "Type1", "Type2")) , .Names = c("date", "data","code","type"), row.names = c("1", "2", "3"), class = "data.frame") 

Aquí está mi código para producir la ttwig:

 p <- ggplot(dataset, aes(x=date, y=data)) + geom_point(aes(shape = factor(type), color = code)) + scale_shape_manual(value=c(23,15)) print(p) 

Los títulos de las leyendas están en default: “factor (type)” y “code”: enter image description here

Aquí hay un ejemplo usando el conjunto de datos del iris :

 data(iris) ggplot(iris, aes(x=Sepal.Length, y=Sepal.Width)) + geom_point(aes(shape=Species, colour=Petal.Width)) + scale_colour_gradient() + labs(shape="Species label", colour="Petal width label") 

Especifique las tags usando labs() , con cada escala especificada por separado, es decir, labs(shape="Species label", colour="Petal width label") .

enter image description here

Si entendí tu punto correctamente, simplemente puedes usar + labs(shape = "shape legend title", colour = "colour legend title")