-1
我正在檢索代碼中的網址。你輸入了錯誤的元素,結果不匹配嗎?
所有的元素應該是相同的,
,我有33條評論中,135分和41個日期。
我做錯了什麼?
我認爲他們中的33個應該是正常的。
如何解決呢?
#install.packages(c("rvest","httr"))
library(rvest)
library(httr)
all.reviews <- c()
all.stars <-c()
all.dates <-c()
for (page in 1:4){
url='https://www.amazon.com/ggplot2-Elegant-Graphics-Data-Analysis/product-reviews/0387981403/ref=cm_cr_arp_d_paging_btm_2?ie=UTF8&showViewpoints=1&sortBy=helpful&pageNumber='
url_page <- paste0(url,page)
reading_html <- read_html(url_page)
text_nodes <- html_nodes(reading_html, 'span.review-text')
review <- html_text(text_nodes)
all.reviews<-c(all.reviews, review)
text_date <- html_nodes(reading_html, 'span.review-date')
date <- html_text(text_date)
all.dates<-c(all.dates, date)
#span.a-icon-alt
text_star <- html_nodes(reading_html, 'span.a-icon-alt')
star <- html_text(text_star)
all.stars<-c(all.stars, star)
print(page)
}
刮亞馬遜是違反其條款與條件。這樣做並鼓勵他人加入你的違規行爲可能會導致民事或刑事處罰。 – hrbrmstr