Html 如何解析S&；的网页；P500市盈率

我正试图从此网页导入标准普尔500指数的当前市盈率： 其中，图表下方显示“current:”，提供当前值（今天的值为24.11）

---

是否有办法解析此网页以自动将其导入R？

如果您只需要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

库（XML）
图书馆（stringr）
url如果您只需要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

库（XML）
图书馆（stringr）
太棒了，是的，这正是我想要的。太棒了，是的，这正是我想要的。