0

以前の同僚からファイルを継承して、R を使用してプロパティの Zillow "Zestimate" および "Rent Zestimate" データを取得し、これらのデータ ポイントを CSV ファイルに出力しました。ただし、私はコーディングに非常に慣れていないため、利用できることがわかっている追加情報をうまく引き出すことができませんでした。サイトで回答を検索しましたが、まだコーディング方法を学ぼうとしているので、現在のコードを自分で編集することに成功していません。これらの追加のデータ ポイントのいずれかをプルするためのコードを追加することができれば、非常に助かります。

  • 物件の詳細（平方フィート、築年数、ベッド、バス、物件タイプ）
  • 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