0

我从以前的同事那里继承了一个文件，使用 R 为属性提取 Zillow“Zestimate”和“Rent Zestimate”数据，然后将这些数据点输出到 CSV 文件。但是，我对编码非常陌生，并且没有成功提取我知道可用的其他信息。我已经在该站点上搜索了答案，但是由于我仍在尝试学习如何编码，因此我对当前代码进行了自己的编辑并没有成功。我可以得到任何帮助添加代码来提取任何这些额外的数据点，将不胜感激。

  • 物业详情（平方英尺、建造年份、床位、浴室、物业类型）
  • Zestimate 范围（高和低）
  • Rent Zestimate 范围（高和低）
  • 最后售出日期和价格
  • 价格历史（最新事件、日期和价格）（不确定是否可以抓取）
  • 纳税历史（最近一年和财产税）（不确定这可以刮掉）

当前代码：

houseAddsSplit = read.csv(houseAddsFileLocation)  zillowAdds = paste(houseAddsSplit$STREET, houseAddsSplit$CITY, houseAddsSplit$STATE, houseAddsSplit$ZIP, sep = " ")  
library(ZillowR)  
library(XML)
set_zillow_web_service_id(zwsId)  
zpidList = NULL  
zestimate = NULL  
rentZestimate = NULL  
for(i in 1:length(zillowAdds)){  
  print(paste("Processing house: ", i, ", address: ", zillowAdds[i]))  
  print(zillowAdds[i])  
  houseZpidClean = "ERR"  
  houseZestClean = "ERR"  
  houseRentZestClean = "ERR"  
  houseInfo = try(GetSearchResults(address = zillowAdds[i], citystatezip = as.character(houseAddsSplit$ZIP[i]), rentzestimate = TRUE))  
 '#'while(houseInfo$message$code != "0"){  
 '#'  houseInfo = try(GetSearchResults(address = cipAdds[i], citystatezip = as.character(cipLoans$ZIP[i]), rentzestimate = TRUE))  
 '#'  Sys.sleep(runif(1, 3, 5))  
 '#'}  
if(houseInfo$message$code == "0"){  
    houseZpid = try(xmlElementsByTagName(houseInfo$response, "zpid", recursive = TRUE))  
    houseZest = try(xmlElementsByTagName(houseInfo$response, "amount", recursive = TRUE))  
    houseZpidAlmostClean = try(toString.XMLNode(houseZpid$results.result.zpid))  
    houseZestAC = try(toString.XMLNode(houseZest$results.result.zestimate.amount))  
    houseRentZestAC = try(toString.XMLNode(houseZest$results.result.rentzestimate.amount))  
    houseZpidClean = try(substr(houseZpidAlmostClean, 7, nchar(houseZpidAlmostClean) - 7))  
    houseZestClean = try(substr(houseZestAC, 24, nchar(houseZestAC) - 9))  
    houseRentZestClean = try(substr(houseRentZestAC, 24, nchar(houseRentZestAC) - 9))  
}
  
  closeAllConnections()
  
  zpidList[i] = houseZpidClean  
  print(paste("zpid: ", houseZpidClean))  
  zestimate[i] = houseZestClean  
  print(paste("zestimate: ", houseZestClean))  
  rentZestimate[i] = houseRentZestClean  
  print(paste("rent zestimate: ", houseRentZestClean))  
  Sys.sleep(runif(1, 7, 10))  
}  
outputData = cbind(houseAddsSplit, zestimate, rentZestimate)  
write.csv(outputData, paste(writeToFolder, "/zillowPullOutput.csv", sep = ""))  
print(paste("All done. File written to", paste(writeToFolder, "/zillowPullOutput.csv", sep = "")))
4

1 回答 1

0

希望您解决了这个问题，但 GetSearchResult API 不会返回您正在寻找的所有结果。您可能需要调用 GetUpdatedPropertyDetails API 来获取所有结果。

于 2019-01-18T22:43:26.740 回答