gpt4 book ai didi

r - 网络抓取 RStudio 中 VIN 号码的品牌/型号/年份

转载 作者:行者123 更新时间:2023-12-04 23:19:44 26 4
gpt4 key购买 nike

我目前正在从事一个项目,我需要在其中找到 VIN 编号的制造商、型号和年份。我有一个包含 300 个不同 VIN 号码的列表。遍历每个单独的 VIN 编号并手动将制造商、型号和年份输入 excel 非常低效且乏味。

我曾尝试使用带有 SelectorGadget 的 Rvest 包在 R 中编写几行代码,以便抓取此站点以获取信息,但我没有成功:
http://www.vindecoder.net/?vin=1G2HX54K724118697&submit=Decode

这是我的代码:

library("rvest")
Vnum = "1G2HX54K724118697"
site <- paste("http://www.vindecoder.net/?vin=", Vnum,"&submit=Decode",sep="")
htmlpage <- html(site)
VINhtml <- html_nodes(htmlpage, ".odd:nth-child(6) , .even:nth-child(5) , .even:nth-child(7)")
VIN <- html_text(forecasthtml)
paste(forecast, collapse =" ")

当我尝试运行 VINhtml 时,我收到错误消息:
列表()
attr(,"类")
[1] "XMLNodeSet"

我不知道我做错了什么。我认为它不起作用,因为它是一个动态网页,但我可能是错的。有没有人对解决这个问题的最佳方法有任何建议?

我也愿意使用其他网站或替代方法来解决这个问题。我只想找到这些 VIN 的型号、制造商和型号年份。任何人都可以帮我找到一种有效的方法吗?

以下是一些示例 VIN:
YV4SZ592561226129
YV4SZ592371288470
YV4SZ592371257784
YV4CZ982871331598
YV4CZ982581428985
YV4CZ982481423003
YV4CZ982381423543
YV4CZ982171380593
YV4CZ982081460887
YV4CZ852361288222
YV4CZ852281454409
YV4CZ852281454409
YV4CZ852281454409
YV4CZ592861304665
YV4CZ592861267682
YV4CZ592561266859

最佳答案

这是使用 RSelenium 的解决方案和 rvest .

要运行RSelenium,您必须首先从here 下载selenium 服务器。 (我的是 2.45 版本)。假设下载的文件在我的文档目录中。然后,在运行 RSelenium 之前,您必须在 cmd 中运行以下两个步骤在 IDE 中。
在cmd中输入以下内容:
a) cd My Documents # 我在我的文档文件夹中安装了 selenium 驱动程序
b) 然后输入:java -jar selenium-server-standalone-2.45.0.jar

library(RSelenium)
library(rvest)
startServer()
remDr <- remoteDriver(browserName = 'firefox')
remDr$open()
Vnum<- c("YV4SZ592371288470","1G2HX54K724118697","YV4SZ592371288470")

kk<-lapply(Vnum,function(j){

remDr$navigate(paste("http://www.vindecoder.net/?vin=",j,"&submit=Decode",sep=""))
Sys.sleep(30) # this is critical
test.html <- html(remDr$getPageSource()[[1]]) # this is RSelenium but after this we can use rvest functions until we close the session
test.text<-test.html%>%
html_nodes(".odd:nth-child(6) , .even:nth-child(5) , .even:nth-child(7)")%>%
html_text()
})
kk
[[1]]
[1] "Model: XC70" "Type: Multipurpose Passenger Vehicle" "Make: Volvo"

[[2]]
[1] "Model: Bonneville" "Make (Manufacturer): Pontiac" "Model year: 2002"

[[3]]
[1] "Model: XC70" "Type: Multipurpose Passenger Vehicle" "Make: Volvo"

remDr$close()

附言您可以看到相同的 css 路径并不适用于所有 VIN。您必须提前弄清楚(我只是使用了您在问题中提供的路径)。您可以使用某种 tryCatch .

关于r - 网络抓取 RStudio 中 VIN 号码的品牌/型号/年份,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30780170/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com