2017-08-01 62 views
-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) 
} 
+0

刮亞馬遜是違反其條款與條件。這樣做並鼓勵他人加入你的違規行爲可能會導致民事或刑事處罰。 – hrbrmstr

回答

0

原始答案已被刪除,以迴應@hrbrmstr提出的關於刮亞馬遜的問題。

+0

供參考:刮亞馬遜是違反他們的條款與條件。這樣做並鼓勵他人加入你的違規行爲可能會導致民事或刑事處罰。 – hrbrmstr

相關問題