我感兴趣的表格是纽约市米其林星级餐厅的维基百科表格,奖励的星星数量由图片表示 .
我能够使用两个步骤刮取表格(首先获取“Name”和“Borough”列中的单词,然后获取表格中的alt标签),但我想知道是否可以一步完成 . 我能够使用rvest包刮掉数据 .
由于XML :: readHTMLTable函数无法读取维基百科页面,我尝试了htmltab包没有运气,因为我无法找出bodyFun参数所需的函数 . 说实话,我是网络抓取的新手......和功能 .
我提到的问题可供参考:
Scraping html table with images using XML R package
Scraping html tables into R data frames using the XML package
这是我的代码:
library(stringr)
library(rvest)
library(data.table)
url <- "http://en.wikipedia.org/wiki/List_of_Michelin_starred_restaurants_in_New_York_City"
#Scrape the first two columns, restaurant name and borough
name.boro <- url %>% read_html() %>% html_nodes("table") %>% html_table(fill = TRUE)
name.boro <- as.data.table(name.boro[[1]])
name.boro[, 3:length(name.boro) := NULL]
135 * 13 #1,755 cells in first table
#scrape tables for img alt
#note that because I used the "td" node, entries for all cells in all tables were pulled
stars <- url %>% read_html() %>% html_nodes("td") %>% html_node("img") %>% html_attr("alt")
stars
#Make vector of numbers to index each column
df <- vector("list", 13)
for (i in 1:13){
df[[i]] <- seq(i, 1755, 13)
}
#Put everything together
Mich.Guide <- name.boro
Mich.Guide[, c("X2006", "X2007", "X2008", "X2009", "X2010", "X2011", "X2012", "X2013", "X2014", "X2015",
"X2016") := .(stars[unlist(df[3])], stars[unlist(df[4])], stars[unlist(df[5])],
stars[unlist(df[6])], stars[unlist(df[7])], stars[unlist(df[8])],
stars[unlist(df[9])], stars[unlist(df[10])], stars[unlist(df[11])],
stars[unlist(df[12])], stars[unlist(df[13])] )]
谢谢!
2 回答
您可以尝试以下方法
现在你有了原始表 . 我将列的解析保留为整数,并将列名称留给您
略有不同的方法:
这对于
XML
包也是完全可行的,如下所示: