用R抓取主要货币对实时汇率

library(rvest)
url<-'http://stockq.cn/market/currency.php'
web<-read_html(url)
res<-web%>%html_table(fill=T)%>%.[8]%>%as.data.frame
res<-res[c(3:5,12,23:25),c(1:3,5)]
res[,2:3]<-lapply(res[,2:3],as.numeric)
ChangeRate<-round(res$X3/res$X2,4)
data<-data.frame(res[,1:3],ChangeRate,res[,4])
names(data)<-c("Name","Price","ChangePrice","ChangeRate","Time")
mydata<-data[order(-data$ChangeRate),]
print(mydata)
            Name    Price ChangePrice ChangeRate  Time
3      欧元/美元   1.1797      0.0130     0.0110 05:53
4      英镑/美元   1.3165      0.0049     0.0037 05:54
23     澳币/美元   0.7631      0.0008     0.0010 05:53
25     美元/加币   1.2732     -0.0001    -0.0001 05:54
12     美元/日圆 113.4600     -0.1600    -0.0014 05:53
24     纽币/美元   0.6875     -0.0028    -0.0041 05:53
5  美元/瑞士法郎   0.9897     -0.0066    -0.0067 05:53