C中的普查批处理地理编码API,其源地址位于R中的数据框(而非CSV)中 [英] Census Batch Geocoding API with source addresses in data frame (not CSV) in R
问题描述
我正在尝试使用人口普查局的批处理地址解析器( http://geocoding.带有R的geo.census.gov/geocoder/Geocoding_Services_API.pdf ).输入地址位于数据帧中,而不是CSV中.由于地址是中间步骤,因此我不想将其写入CSV.
I am attempting to utilize the Census Bureau's batch geocoder (http://geocoding.geo.census.gov/geocoder/Geocoding_Services_API.pdf) with R. The input addresses are in a data frame, not a CSV. As the addresses are an intermediate step, I do not want to write them to a CSV.
我已经阅读了关于stackoverflow的几篇文章. Hadley的解决方案(发布到API和从API接收数据在R 中使用httr)说明了如何上传现有的CSV文件. MrFlick的解决方案(将csv上传到R中的api )似乎很接近我想要的东西,但使用的是字符串,而不是数据框.
I have read several postings on stackoverflow. Hadley's solution (Posting to and Receiving data from API using httr in R) illustrates how to upload an existing CSV file. MrFlick's solution (Uploading a csv to an api in R) seems close to what I want but uses a string, not a data frame.
这就是我的编码方式:
#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)
谢谢.
推荐答案
如果您愿意将数据写入临时文件...
if you're willing to write the data to a temp file...
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"
这篇关于C中的普查批处理地理编码API,其源地址位于R中的数据框(而非CSV)中的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!