“In min(x) : no non-missing arguments to min; returning Inf” when ggmap + geom_label_repel

Question

The following code works fine:

register_google(key=\'[an API key]\')
map <- get_googlemap(maptype="satellite",center=c(lon=108,lat=32.5),zoom=3)