坐标 2 政治：反向地理编码无法正常工作答案

【问题标题】：coordinates2politics: Reverse Geocoding does not work correctly坐标 2 政治：反向地理编码无法正常工作
【发布时间】：2016-12-26 07:45:57
【问题描述】：

我正在使用数据科学工具包中的coordinates2politics 函数处理纬度和经度值的数据框，以获取相应的地址。该函数适用于单个 lat&long 值，但是当我在 POST 调用的主体中解析数组时，它不起作用。

代码sn-p：

x <- data.frame(lat= c(35.18713,37.86058),long= c(-117.88536,-122.29673))
data <- paste0("[",paste(paste0("\"",x$lat,"%2c",x$long,"\""),collapse=","),"]")
url  <- "http://www.datasciencetoolkit.org/coordinates2politics/"
response <- POST(url,body=data)
response
json     <- fromJSON(content(response,type="text"))
json

结果位置的纬度和经度值不同，我不知道为什么？这是第一个输入的结果，您可以观察到 lat = 51, long=53 ！

json
[[1]]
[[1]]$politics
[[1]]$politics[[1]]
[[1]]$politics[[1]]$type
[1] "admin2"

[[1]]$politics[[1]]$friendly_type
[1] "country"

[[1]]$politics[[1]]$name
[1] "Kazakhstan"

[[1]]$politics[[1]]$code
[1] "kaz"


[[1]]$politics[[2]]
[[1]]$politics[[2]]$type
[1] "admin4"

[[1]]$politics[[2]]$friendly_type
[1] "state"

[[1]]$politics[[2]]$name
[1] "West Kazakhstan"

[[1]]$politics[[2]]$code
[1] "kz07"

[[1]]$location
[[1]]$location$latitude
[1] 51

[[1]]$location$longitude
[1] 53

【问题讨论】：

标签： r maps geocoding

【解决方案1】：

嗯，我找到了解决方案问题在于定义 data 对象，因为该函数需要一个包含两个键值的数组，每个键值对应于 [lat,long] 对所以数据对象应该定义为 data <- paste0("[",paste(paste0("[",x$lat,",",x$long,"]"),collapse=","),"]")

【讨论】：