ggmap中的随机点和从坐标到地址的反向地理参考

Question

我正在尝试为美国威斯康星州的一个城市区域构建一个采样图。我已经建立了底图，但是现在我想使用sp包函数spsample来获得100个随机采样位置。一旦获得这些坐标，我就想用它们来估计最接近这些点的街道地址。到目前为止，这就是我的想法：欢迎所有想法。

#Generate 100 random points in the extent of interest 

#API 
key<-"MYKEY"
register_google(key = key)
atw<- get_map(location=c(-88.375,44.27), zoom=12, 
              scale=3, maptype = "toner", source = "stamen", crop=FALSE)

#buld the map 
atw.map<-ggmap(atw, color="bw") + coord_fixed(xlim = c(-88.50, -88.25), ratio = 1/.75) + ylim(c(44.19, 44.35)) 

atw.map2<- atw.map +
  theme (legend.position = "none") + ylab("Latitude") + xlab("Longitude") 

atw.map2

#sample 100 points randomly in this map space
spsample (x="Spatial", n=100, bb=atw.map2)