|
经楼主提示,前面程序在排序时犯了一个错误,排序是针对所有数据类型才有效,数据类型不能混淆,现在改正过来。
u = 'http://cp.win007.com/handle/handicap.aspx?issuenum=2015004&typeid=1&companyid=3&1420858993000'
asia = u %>% html() %>% html_nodes("i") %>% html_text() %>% str_split(",") %>% do.call(rbind,.) %>% .[,c(2,4,5,6)] %>% as.data.frame
asia = sapply(asia, function(x) as.numeric(as.character(x))) %>% as.data.frame
皇冠亚赔 = asia[order(asia[,1]),][-1]
v = 'http://cp.win007.com/handle/1x2.aspx?issuenum=2015004&typeid=1&companyid=9&1420894723000'
uro = v %>% html() %>% html_nodes("i") %>% html_text() %>% str_split(",") %>% do.call(rbind,.) %>% .[,c(2,7,8,9)] %>% as.data.frame
uro = sapply(uro, function(x) as.numeric(as.character(x))) %>% as.data.frame
威廉欧赔 = uro[order(uro[,1]),][-1]
|