如何分析網頁的S＆P500 P/E比率

Question

我想從這個網頁導入當前P/E比率對於s &普500： http://www.multpl.com 哪裏，下面的圖表，它說：「目前的：」提供當前值（今天的值是24.11）。

有沒有辦法解析這個網頁自動導入到R？

Answer 1

如果您只需要PE比你可以用這個

library(XML) 
library(stringr) 
url<-htmlParse("http://www.multpl.com/") 
PE<-xpathSApply(url,"//div[@id='current']",xmlValue) 
str<-str_replace_all(PE," ","") 
str<-str_replace_all(str,"\n","") 
begin<-str_locate(str,":")[[1]] 
end<-str_locate(str,"\\+")[[1]] 
PE_ratio<-as.numeric(str_sub(str,begin+1,end-1)) 
PE_ratio