在R中使用数据框(非CSV)中的源地址的人口普查批处理地理编码API

jyztefdp 于 2023-09-27 发布在其他

关注(0)|答案(2)|浏览(83)

我试图使用人口普查局的批处理地理编码器（http://geocoding.geo.census.gov/geocoder/Geocoding_Services_API.pdf）与R。输入地址位于 Dataframe 中，而不是CSV中。由于地址是一个中间步骤，我不想将它们写入CSV。
我在stackoverflow上读过几篇文章。Hadley的解决方案（Posting to and Receiving data from API using httr in R）演示了如何上传现有的CSV文件。MrFlick的解决方案（Uploading a csv to an api in R）似乎与我想要的很接近，但它使用的是字符串，而不是 Dataframe 。
下面是我的代码：

#generate data frame of test addresses for this example
a = c(1, 2, 3) 
b = c("125 Worth Street", "258 Broadway", "8 Centre Street") 
c = rep("New York", 3) 
d = rep("NY", 3)
e = c("10013","10007","10007")
addresses = data.frame(a,b,c,d,e)

#names specified by API documentation
colnames(addresses) <- c("Unique ID","Street address","City","State","ZIP")

apiurl <- "http://geocoding.geo.census.gov/geocoder/geographies/addressbatch"

req <- POST(apiurl, body=list(
    addressFile = RCurl::fileUpload(
        filename = "test.csv", 
        contents = addresses
    ), 
    benchmark = "Public_AR_Census2010",
    vintage = "Census2010_Census2010"
    ), 
    encode="multipart"
)
stop_for_status(req)

先谢了。

来源：https://stackoverflow.com/questions/35440178/census-batch-geocoding-api-with-source-addresses-in-data-frame-not-csv-in-r

2条答案

按热度按时间

jdzmm42g1#

如果你愿意把数据写到临时文件里

library("httr")
a = c(1, 2, 3) 
b = c("125 Worth Street", "258 Broadway", "8 Centre Street") 
c = rep("New York", 3) 
d = rep("NY", 3)
e = c("10013","10007","10007")
addresses = data.frame(a,b,c,d,e)
colnames(addresses) <- c("Unique_ID","Street address","City","State","ZIP")
apiurl <- "http://geocoding.geo.census.gov/geocoder/geographies/addressbatch"
file <- tempfile(fileext = ".csv")
write.csv(addresses, file, row.names = FALSE)
req <- POST(apiurl, body=list(
    addressFile = upload_file(file), 
    benchmark = "Public_AR_Census2010",
    vintage = "Census2010_Census2010"
  ), 
  encode="multipart"
)
content(req, "text", encoding = "UTF-8")

#> [1] "\"3\",\"8 Centre Street, New York, NY, 10007\",\"Match\",\"Non_Exact\",\"8 Centre St, NEW YORK, NY, 10013\",\"-74.00442,40.712765\",\"59660429\",\"R\",\"36\",\"061\",\"002900\",\"4019\"\n\"2\",\"258 Broadway, New York, NY, 10007\",\"No_Match\"\n\"1\",\"125 Worth Street, New York, NY, 10013\",\"Match\",\"Exact\",\"125 Worth St, NEW YORK, NY, 10013\",\"-74.0027,40.715446\",\"59660405\",\"L\",\"36\",\"061\",\"003100\",\"1012\"\n\"Unique_ID\",\"Street address, City, State, ZIP\",\"No_Match\"\n"

赞(0）回复(0）举报 2023-09-27

qf9go6mv2#

如果有人在尝试这些代码时收到错误，那是因为普查API从http切换到https。将apiurl调整为基于https，它应该可以工作。

library("httr")
a = c(1, 2, 3) 
b = c("125 Worth Street", "258 Broadway", "8 Centre Street") 
c = rep("New York", 3) 
d = rep("NY", 3)
e = c("10013","10007","10007")
addresses = data.frame(a,b,c,d,e)
colnames(addresses) <- c("Unique_ID","Street address","City","State","ZIP")
apiurl <- "https://geocoding.geo.census.gov/geocoder/geographies/addressbatch"
file <- tempfile(fileext = ".csv")
write.csv(addresses, file, row.names = FALSE)
req <- POST(apiurl, body=list(
    addressFile = upload_file(file), 
    benchmark = "Public_AR_Census2010",
    vintage = "Census2010_Census2010"
  ), 
  encode="multipart"
)
content(req, "text", encoding = "UTF-8")

赞(0）回复(0）举报 2023-09-27

我来回答

在R中使用数据框(非CSV)中的源地址的人口普查批处理地理编码API

2条答案

相关问题

热门标签

最新问答