根据名称列表下载汽车图片列表

Question

我想根据汽车制造商型号名称的 excel 列表下载汽车图片列表。

我可以通过在 google 中点击汽车模型并在 google 结果中保存或复制第一张图片的 url 来手动执行此操作。但是我有 800 个车型名称，这很耗时。

我该怎么做？ 谢谢

Answer 1

这是您可以在 R 中使用的函数。您首先需要 install.packages("rvest") 和 install.packages("httr")

library(rvest)
library(httr)

get_first_google_image <- function(car_name)
{
  site <- "https://www.google.com"
  query <- paste0(site, "/search?q=", url_escape(car_name))

  image_page <- read_html(query)                          %>% 
    html_nodes(xpath = "//a[contains(text(), 'Images')]") %>% 
    html_attr("href")

  paste0(site, image_page)             %>%
    read_html(image_page)              %>%
    html_nodes("img")                  %>% 
    html_attr("src")                   %>% 
    {grep("gstatic", ., value = TRUE)} %>% 
    `[`(1)                             %>%
    httr::GET()                        %>%
    httr::content("raw")               %>%
    writeBin(paste0("~/", car_name, ".jpg"))
}

要使用它，您只需这样做

get_first_google_image("Mazda MX5")

然后它会将来自 Google 图片搜索的第一个命中以 jpeg 格式保存到您的主目录。

如果您想将所有车名输入 R，只需在 Excel 中选择并复制该列，然后在 R 中执行

car_names <- readClipboard()

那你就可以了

for(i in seq_along(car_names) get_first_google_image(car_names[i])

这可能需要很长时间才能运行。