当标签不存在时使用

当标签不存在时使用

关注
发信
关注(28)粉丝(399)

使用 rvest 进行抓取 - 当标签不存在时使用 NAs 完成

本文介绍了使用 rvest 进行抓取 - 当标签不存在时使用 NAs 完成的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我想解析这个 HTML:并从中获取这个元素:

a) p 标签，带有 class: "normal_encontrado".
b) div with class: "price".

有时，某些产品中不存在 p 标签.如果是这种情况，应将 NA 添加到从该节点收集文本的向量中.

想法是有2个长度相同的向量，然后将它们连接起来形成一个data.frame.有什么想法吗?

HTML 部分:

<头></头><身体><div class="product_price" id="product_price_186251"><p class="normal_encontrado">S/.2,799.00</p><div id="WC_CatalogEntryDBThumbnailDisplayJSPF_10461_div_10" class="价格">S/.2,299.00

<div class="product_price" id="product_price_232046"><div id="WC_CatalogEntryDBThumbnailDisplayJSPF_10461_div_10" class="价格">S/.4,999.00

</html>

R 代码:

库(rvest)page_source <- read_html("r.html")r.precio.antes <- page_source %>%html_nodes(".normal_encontrado") %>%html_text()r.precio.actual <- page_source %>%html_nodes(".price") %>%html_text()
解决方案

如果未找到标签，则 rvest 返回一个字符 (0).因此，假设您将在每个 div.product_price 中最多找到一个当前价格和一个常规价格，您可以使用:

pacman::p_load("rvest", "dplyr")get_prices <- 函数(节点){r.precio.antes <- html_nodes(node, 'p.normal_encontrado') %>% html_textr.precio.actual <- html_nodes(node, 'div.price') %>% html_text数据框(precio.antes = ifelse(length(r.precio.antes)==0, NA, r.precio.antes),precio.actual = ifelse(length(r.precio.actual)==0, NA, r.precio.actual),字符串AsFactors = F)}doc <- read_html('test.html') %>% html_nodes("div.product_price")lapply(doc, get_prices) %>%rbind_all

我误解了输入数据，因此将脚本更改为仅适用于单个 html 页面.

I want to parse this HTML: and get this elements from it:

a) p tag, with class: "normal_encontrado".
b) div with class: "price".

Sometimes, the p tag is not present in some products. If this is the case, an NA should be added to the vector collecting the text from this nodes.

The idea is to have 2 vectors with the same length, and after join them to make a data.frame. Any ideas?

The HTML part: 

<html>
<head></head>
<body>

<div class="product_price" id="product_price_186251">
  <p class="normal_encontrado">
    S/. 2,799.00
  </p>

  <div id="WC_CatalogEntryDBThumbnailDisplayJSPF_10461_div_10" class="price">
    S/. 2,299.00
  </div>
</div>

<div class="product_price" id="product_price_232046">
  <div id="WC_CatalogEntryDBThumbnailDisplayJSPF_10461_div_10" class="price">
    S/. 4,999.00
  </div>
</div>
</body>
</html>

R Code:

library(rvest)

page_source <- read_html("r.html")

r.precio.antes <- page_source %>%
html_nodes(".normal_encontrado") %>%
html_text()

r.precio.actual <- page_source %>%
html_nodes(".price") %>%
html_text()
解决方案

If the tag is not found, rvest returns a character(0). So assuming you will find at most one current and one regular price in each div.product_price, you can use this:

pacman::p_load("rvest", "dplyr")

get_prices <- function(node){
  r.precio.antes <- html_nodes(node, 'p.normal_encontrado') %>% html_text
  r.precio.actual <- html_nodes(node, 'div.price') %>% html_text

  data.frame(
    precio.antes = ifelse(length(r.precio.antes)==0, NA, r.precio.antes),
    precio.actual = ifelse(length(r.precio.actual)==0, NA, r.precio.actual),
    stringsAsFactors=F
  )

}

doc <- read_html('test.html') %>% html_nodes("div.product_price")
lapply(doc, get_prices) %>%
  rbind_all

Edited: I misunderstood the input data, so changed the script to work with just a single html page.

这篇关于使用 rvest 进行抓取 - 当标签不存在时使用 NAs 完成的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！

08-22 20:52
Powered by LMLPHP ©2024 当标签不存在时使用 0.038628