Justificación de múltiples leyendas en ggmap / ggplot2

Estoy tratando de hacer un mapa con dos leyendas que denoten forma y color ("Tipo" y "Org" en el siguiente ejemplo), y tengo las inserciones insertadas. Puedo colocar las leyendas, pero me gustaría que quedaran justificadas para que sus bordes izquierdos se alineen. No puedo hacer nada más que centrado uno con respecto al otro:

require(ggplot2)
require(ggmap)
require(grid)
require(mapproj)

data <- data.frame(Org=rep(c("ABCDEFG","HIJKLMNOP","QRSTUVWX"),4)
                   , Type=rep(c("Y","Z"),6), Lat=runif(12,48,54.5)
                   , Long=runif(12,-133.5,-122.5))

osmMap <- get_map(location=c(-134,47.5,-122,55), source = 'osm')

points <- geom_jitter(data=data, aes(Long, Lat, shape=Type
                                     , colour=Org))

legend <- theme(legend.justification=c(0,0), legend.position=c(0,0)
                , legend.margin=unit(0,"lines"), legend.box="vertical"
                , legend.key.size=unit(1,"lines"), legend.text.align=0
                , legend.title.align=0)

ggmap(osmMap) + points + legend

Respuestas a la pregunta(1)

Su respuesta a la pregunta