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

Question

感谢@caldwellst 和@rohit，我之前想出了如何使用 FCC API (Apply an API Function over 2 columns of Dataframe, Output a Third Column) 将纬度/经度转换为县级 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 
> 

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

Answer 1

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，您还可以稍微简化一些事情，因为前者直接接受连接。