在R中使用RVEST HTML_ELEMENTS提取重复的类

发布于 2025-02-11 19:10:52 字数 649 浏览 1 评论 0原文

你好吗？我正在尝试使用RVEST提取有关此运动底网页的一些信息。几天前，我问了一个相关的问题，几乎得到了我的目标的100％。到目前为止，感谢您，使用下一个代码成功提取了标题，得分和比赛时间：

library(rvest)
library(tidyverse)

page <- "https://www.supermatch.com.uy/live_recargar_menu/" %>%
  read_html()

data=data.frame(
  Titulo = page %>%
    html_elements(".titulo") %>%
    html_text(),
  Marcador = page %>%
    html_elements(".marcador") %>%
    html_text(), 
  Tiempo = page %>%
    html_elements(".marcador+ span") %>%
    html_text() %>% 
    str_squish()
  
)

现在我想获得重复的值，例如，如果比赛国家是“巴西人”，我想要将其放在该类别中每场比赛的国家中都是巴西的数据框架。到目前为止，我只设法单独提取所有国家。运动名称和比赛也是如此。

你能帮我吗？已经谢谢。

原文

how are you? I am trying to extract some info about this sportbetting webpage using rvest. I asked a related question a few days ago and i get almost 100% of my goals. So far , and thanks to you, extracted succesfully the title, the score and the time of the matches being played using the next code:

library(rvest)
library(tidyverse)

page <- "https://www.supermatch.com.uy/live_recargar_menu/" %>%
  read_html()

data=data.frame(
  Titulo = page %>%
    html_elements(".titulo") %>%
    html_text(),
  Marcador = page %>%
    html_elements(".marcador") %>%
    html_text(), 
  Tiempo = page %>%
    html_elements(".marcador+ span") %>%
    html_text() %>% 
    str_squish()
  
)

Now i want to get repeated values, for example if the country of the match is "Brasil" I want to put it in the data frame that the country is Brasil for every match in that category. So far i only managed to extract all the countries but individually. Same applies for sport name and tournament.

Can you help me with that? Already thanks.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

毁我热情 2025-02-18 19:10:52

您可以重写代码以使用与不同信息级别一起使用的单独功能。这些可以以嵌套的方式调用，从而使代码易于阅读。

从本质上讲，使用嵌套的map_dfr（）调用来从DOM内不同级别的列表工作的功能中产生单个数据帧。

在下面，您可以将其视为体育的外部循环，然后是在国家 /地区的中间循环，以及在体育和国家内发生的事件中最内向的循环。

library(rvest)
library(tidyverse)

get_sport_info <- function(sport) {
  df <- map_dfr(sport %>% html_elements(".category"), get_play_info)
  df$sport <- sport %>%
    html_element(".sport-name") %>%
    html_text()
  return(df)
}


get_play_info <- function(play) {
  df <- map_dfr(play %>% html_elements(".event"), ~
    data.frame(
      titulo = .x %>% html_element(".titulo") %>% html_text(),
      marcador = .x %>% html_element(".marcador") %>% html_text(),
      tiempo = .x %>% html_element(".marcador + span") %>% html_text() %>% str_squish()
    ))
  df$country <- play %>%
    html_element(".category-name") %>%
    html_text()
  return(df)
}


page <- "https://www.supermatch.com.uy/live_recargar_menu/" %>% read_html()
sports <- page %>% html_elements(".sport")
final <- map_dfr(sports, get_sport_info)

You could re-write your code to use separate functions that work with different levels of information. These can be called in a nested fashion making the code easier to read.

Essentially, using nested map_dfr() calls to produce a single dataframe from functions working with lists at different levels within the DOM.

Below, you could think of it like an outer loop of sports, then an intermediate loop over countries, and an innermost loop over events within a sport and country.

library(rvest)
library(tidyverse)

get_sport_info <- function(sport) {
  df <- map_dfr(sport %>% html_elements(".category"), get_play_info)
  df$sport <- sport %>%
    html_element(".sport-name") %>%
    html_text()
  return(df)
}


get_play_info <- function(play) {
  df <- map_dfr(play %>% html_elements(".event"), ~
    data.frame(
      titulo = .x %>% html_element(".titulo") %>% html_text(),
      marcador = .x %>% html_element(".marcador") %>% html_text(),
      tiempo = .x %>% html_element(".marcador + span") %>% html_text() %>% str_squish()
    ))
  df$country <- play %>%
    html_element(".category-name") %>%
    html_text()
  return(df)
}


page <- "https://www.supermatch.com.uy/live_recargar_menu/" %>% read_html()
sports <- page %>% html_elements(".sport")
final <- map_dfr(sports, get_sport_info)

回复收藏 0 原文

~没有更多了~