Próbuję stworzyć mapę z dwiema legendami oznaczającymi kształt i kolor („Typ” i „Org” w poniższym przykładzie) i wstawić legendy. Mogę umieścić legendy, ale chciałbym, żeby zostały wyrównane do lewej, aby ich lewe krawędzie były wyrównane. Nie mogę uczynić z nich niczego innego niż skupione na sobie:

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