Question

我尝试通过经度lon和纬度lat坐标获取城市名称。

 coords %>% str()
 'data.frame':  73 obs. of  2 variables:
 $ lon: Factor w/ 36 levels "-0.093093872070312",..: 12 24 21 13 21 13 15 6 
 21 21 ...
 $ lat: Factor w/ 36 levels "17.550094604492",..: 29 2 10 28 10 28 31 13 10 
 10 ...

这是dput：

structure(list(lon = structure(c(12L, 24L, 21L, 13L, 21L, 13L, 
15L, 6L, 21L, 21L, 23L, 36L, 12L, 10L, 28L, 14L, 22L, 34L, 21L, 
3L, 24L, 21L, 24L, 26L, 1L, 21L, 25L, 31L, 23L, 4L, 1L, 21L, 
12L, 13L, 21L, 21L, 5L, 33L, 17L, 11L, 24L, 24L, 21L, 29L, 26L, 
2L, 27L, 24L, 19L, 35L, 12L, 8L, 31L, 32L, 8L, 26L, 31L, 21L, 
18L, 21L, 16L, 12L, 31L, 21L, 20L, 9L, 7L, 23L, 30L, 21L, 21L, 
19L, 24L), .Label = c("-0.093093872070312", "-0.32969665527344", 
"-6.8442993164062", "-73.587699890137", "-74.00520324707", 
"-74.073303222656", 
"-79.463302612305", "10.75", "11.583297729492", "16.216705322266", 
"2.30029296875", "2.3332977294922", "2.3386993408203", "2.3488006591797", 
"2.3547973632812", "2.3560943603516", "2.4033050537109", "2.4893035888672", 
"3.877197265625", "35.368896484375", "35.509704589844", "35.649993896484", 
"35.833297729492", "39.219192504883", "44.399200439453", "46.715194702148", 
"5.1000061035156", "5.4956970214844", "51.533294677734", "54.36669921875", 
"55.304702758789", "7.1591033935547", "7.7873992919922", "77.216705322266", 
"8", "9.1999969482422"), class = "factor"), lat = structure(c(29L, 
2L, 10L, 28L, 10L, 28L, 31L, 13L, 10L, 10L, 9L, 18L, 29L, 22L, 
15L, 27L, 12L, 7L, 10L, 11L, 2L, 10L, 2L, 4L, 33L, 10L, 1L, 5L, 
9L, 19L, 33L, 10L, 29L, 28L, 10L, 10L, 14L, 23L, 24L, 26L, 2L, 
2L, 10L, 6L, 4L, 32L, 35L, 2L, 16L, 20L, 29L, 34L, 5L, 36L, 34L, 
4L, 5L, 10L, 30L, 10L, 25L, 29L, 5L, 10L, 8L, 21L, 17L, 9L, 3L, 
10L, 10L, 16L, 2L), .Label = c("17.550094604492", "21.516906738281", 
"24.466705322266", "24.653701782227", "25.258193969727", "25.286697387695", 
"28.666702270508", "33.563095092773", "33.833297729492", "33.87190246582", 
"34.013793945312", "34.11669921875", "4.6356964111328", "40.721405029297", 
"43.48779296875", "43.610900878906", "43.660507202148", "45.466705322266", 
"45.500900268555", "47", "48.149993896484", "48.38330078125", 
"48.600402832031", "48.787200927734", "48.83219909668", "48.841201782227", 
"48.853393554688", "48.858200073242", "48.86669921875", "48.901794433594", 
"48.934204101562", "51.445404052734", "51.514205932617", "59.916702270508", 
"61.25", "62.737503051758"), class = "factor")), .Names = c("lon", 
"lat"), row.names = c(NA, -73L), class = "data.frame")

我试过这篇文章的解决方案： Listing cities from coordinates in R

library(ggmap)
res <- lapply(with(coords, paste(lon, lat, sep = ",")), geocode, output = 
"more")

但是我收到所有值的错误：

Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=2.3332977294922,48.86669921875&sensor=false
geocode failed with status ZERO_RESULTS, location = "2.3332977294922,48.86669921875"Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=39.219192504883,21.516906738281&sensor=false

Answer 1

geocode可以对矢量进行操作。所以就这样做：

geocode(paste(df$lat, df$lon, sep=','), output = 'more')['locality']

不匹配的坐标将返回NA。

来自经度和纬度的城市名称

1 个答案: