side by side plot

library(ggmap)
## Loading required package: ggplot2
library(gridExtra)
## Loading required package: grid

zoom <- 15
m1 <- get_map("Lund University", zoom = zoom, maptype = "roadmap")
## Map from URL :
## http://maps.googleapis.com/maps/api/staticmap?center=Lund+University&zoom=15&size=%20640x640&scale=%202&maptype=roadmap&sensor=false
## Google Maps API Terms of Service : http://developers.google.com/maps/terms
## Information from URL :
## http://maps.googleapis.com/maps/api/geocode/json?address=Lund+University&sensor=false
## Google Maps API Terms of Service : http://developers.google.com/maps/terms
m2 <- get_map("下北沢", zoom = zoom, maptype = "roadmap")
## Map from URL :
## http://maps.googleapis.com/maps/api/staticmap?center=%e4%b8%8b%e5%8c%97%e6%b2%a2&zoom=15&size=%20640x640&scale=%202&maptype=roadmap&sensor=false
## Google Maps API Terms of Service : http://developers.google.com/maps/terms
## Information from URL :
## http://maps.googleapis.com/maps/api/geocode/json?address=%e4%b8%8b%e5%8c%97%e6%b2%a2&sensor=false
## Google Maps API Terms of Service : http://developers.google.com/maps/terms

p1 <- ggmap(m1)
p2 <- ggmap(m2)

grid.arrange(p1, p2, nrow = 1)

plot of chunk map