열을 긁는 방법 웹 사이트에서 R 프로그래밍을 하시겠습니까?

Question

누구나 주어진 웹 사이트에서 R의 평균 가격 및 값 열을 읽는 방법을 제안 할 수 있습니다. 나는 무슨 일이 일어나고 있는지 이해할 수 없다. 같은 코드로이 두 칼럼을 제외한 모든 칼럼을 읽을 수있다. 내가 사용하고

코드입니다 :

library(rvest) 
library(dplyr) 
url="http://relationalstocks.com/showinsiders.php?date=2017-09-15&buysell=buysell" 
url_html<-read_html(url) 
SharesTraded_html=html_nodes(url_html,'td:nth-child(6)') 
SharesTraded=html_text(SharesTraded_html) 
SharesTraded=as.numeric(gsub(",",'',SharesTraded)) 
AvgPriceDollars_html=html_node(url_html,'td:nth-child(7)') 
AvgPriceDollars=html_text(AvgPriceDollars_html) 
AvgPriceDollars 

http://relationalstocks.com/showinsiders.php?date=2017-09-15&buysell=buysell

Answer 1

그렇게하는

가장 간단한 방법은 사용하는 것입니다 html_table :

library(rvest) 
library(dplyr) 
url <- read_html("http://relationalstocks.com/showinsiders.php?date=2017-09-15&buysell=buysell") 
tb <- url %>% 
    html_node("#insidertab") %>% 
    html_nodes("table") %>% 
    html_table(fill = TRUE) %>% 
    as.data.frame() 

str(tb) 
'data.frame': 253 obs. of 9 variables: 
    $ Reported.Time: chr "2017-09-15 21:00:47" "2017-09-15 20:11:26" "2017-09-15 20:11:26" "2017-09-15 20:10:27" ... 
$ Tran.  : chr "2017-09-12 Purchase" "2017-09-13 Sale" "2017-09-14 Sale" "2017-09-15 Sale" ... 
$ Company  : chr "Double Eagle Acquisition Corp." "PHIBRO ANIMAL HEALTH CORP" "PHIBRO ANIMAL HEALTH CORP" "Guidewire Software, Inc." ... 
$ Ticker  : chr "EAGL" "PAHC" "PAHC" "GWRE" ... 
$ Insider  : chr "SAGANSKY JEFFREYChief Executive Officer, Director, 10% owner" "Johnson Richard GChief Financial Officer" "Johnson Richard GChief Financial Officer" "Roza ScottChief Business Officer" ... 
$ Shares.Traded: chr "30,000" "15,900" "39,629" "782" ... 
$ Avg.Price : chr "$10.05" "$36.46" "$36.23" "$78.20" ... 
$ Value  : chr "$301,500" "$579,714" "$1,435,758" "$61,152" ... 
$ Filing  : logi NA NA NA NA NA NA ...