Fatal编程技术网
  • r/
  • 正在尝试使用R中的for循环从多个网页中刮取表

正在尝试使用R中的for循环从多个网页中刮取表

r for-loop web-scraping

正在尝试使用R中的for循环从多个网页中刮取表,r,for-loop,web-scraping,R,For Loop,Web Scraping,我试图从不同的MLB团队的多个网页中获取信息。这些都是我试图从中获取的网站。对于这两个团队，我试图从页面上的第12个表中获取信息，然后将它们作为数据框连接在一起。到目前为止，我的代码是这样的 库（rvest） #>正在加载所需的包：xml2 图书馆（magrittr） 球队=c（“迈阿密马林鱼”、“克利夫兰印第安人”） 表% html_表（） 表[index]替换长度表[index]中的表[index]警告 df% .[[12]]%>% html_表（） #>url15%%>%read_html

我试图从不同的MLB团队的多个网页中获取信息。这些都是我试图从中获取的网站。对于这两个团队，我试图从页面上的第12个表中获取信息，然后将它们作为数据框连接在一起。到目前为止，我的代码是这样的

库（rvest）
#>正在加载所需的包：xml2
图书馆（magrittr）
球队=c（“迈阿密马林鱼”、“克利夫兰印第安人”）
表%
html_表（）
表[index]替换长度表[index]中的表[index]警告
df%
.[[12]]%>%
html_表（）
#>url15%%>%read_html（）%%>%html_节点（“表”）%%>%%.[12]]%%>%中出错：找不到函数“%%>%”
由（v0.3.0）于2020年10月15日创建

如果有人能指出我做错了什么，如果可能的话，用外行的话解释一下，我将不胜感激，因为我对这一点非常陌生。

试试这个

library(rvest)
library(dplyr)
teams <- c("miami-marlins", "cleveland-indians")
dplyr::bind_rows(lapply(
  paste0("https://www.covers.com/sport/baseball/mlb/teams/main/", teams, "/2019"), 
  . %>% read_html() %>% html_nodes("table") %>% .[[12]] %>% html_table() %>% {`names<-`(.[-1L, ], .[1L, , drop = TRUE])}
))

库（rvest）
图书馆（dplyr）

团队%read_html（）%%>%html_节点（“表”）%%>%.[12]]%%>%html_table（）%%>%{`names您可能需要
表[[index]]