时间戳

首页 > 解决方案 > 使用 FCC API 将 Lat/Lon 转换为县代码

r - 使用 FCC API 将 Lat/Lon 转换为县代码

问题描述

感谢@caldwellst 和@rohit ，我之前想出了如何使用 FCC API（在 2 列数据帧上应用 API 函数，输出第三列）将纬度/经度转换为县级 FIPS 代码。不幸的是，FCC 修改了 API，我无法弄清楚如何修复代码以再次工作。

这是新 API 的链接：https ://geo.fcc.gov/api/census/

这是我的数据框：

> head(df_coords)

# A tibble: 6 x 3
     lon   lat censusYear
   <dbl> <dbl>      <dbl>
1 -112.   33.4       2010
2  -73.2  44.5       2010
3  -88.2  41.9       2010
4  -88.2  41.9       2010
5  -88.4  41.9       2010
6  -77.1  39.0       2010

这是我之前借用/改编的函数以及运行它的命令：

geo2fips <- function(latitude, longitude) { 
  url <- "https://geo.fcc.gov/api/census/block/find?format=json&latitude=%f&longitude=%f"
  url <- sprintf(url, latitude, longitude)
  json <- RCurl::getURL(url)
  json <- RJSONIO::fromJSON(json)
  as.character(json$County['FIPS'])
}

df_fips$county_fips <- mapply(geo2fips, df_fips$lat, df_fips$lon)

这是我运行它时收到的错误消息：


 Error in function (type, msg, asError = TRUE)  : 
  Unknown SSL protocol error in connection to geo.fcc.gov:443

谁能帮我解决这个问题？我认为这可能与人口普查年的要求有关，所以我尝试修改代码如下，但它返回了相同的错误消息：

 geo2fips <- function(latitude, longitude, censusYear) { 
+   url <- "https://geo.fcc.gov/api/census/block/find?format=json&latitude=%f&longitude=%f&censusYear=%f"
+   url <- sprintf(url, latitude, longitude, censusYear)
+   json <- RCurl::getURL(url)
+   json <- RJSONIO::fromJSON(json)
+   as.character(json$County['FIPS'])
+ }
> df_coords$county_fips <- mapply(geo2fips, df_coords$lat, df_coords$lon, df_coords$censusYear)
 Error in function (type, msg, asError = TRUE)  : 
  Unknown SSL protocol error in connection to geo.fcc.gov:443 
>

非常感谢任何可以提供帮助的人。-麦克风

标签： rjsonfunctionapi-design

解决方案

URL 和参数略有变化 - 您可以使用：

geo2fips <- function(latitude, longitude) { 
  url <- "https://geo.fcc.gov/api/census/area?lat=%f&lon=%f&format=json"
  res <- jsonlite::fromJSON(sprintf(url, latitude, longitude))[["results"]][["county_fips"]]
  unique(res)
}

jsonlite如果您使用包而不是RSJONIO前者直接接受连接，您还可以稍微简化一些事情。

推荐阅读