Я пытаюсь построить карту выборки для региона города в США. Я создал свою базовую карту, но теперь я хочу использовать пакетную функцию 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)
