获取第6界R语言会议报名者的区域分布信息

getAttendNum.R

url <- "http://www.vasee.com/event/manage/echart_data.jsp?id=ff8080813d7c8a71013d87e56a9b47b0&type=5&date=1&timestamp=11.57071830239147"
library(XML)
xmlResult <- xmlTreeParse(url)
doc <- xmlParse(url)

prov <- xpathSApply(doc,path='//area[@title]', xmlGetAttr, "title")
  
reg <- regexpr("[1-9]+", prov)
ret <- substring(prov,reg, reg + attr(reg,'match.length')-1)
ret <- ifelse(grepl("无", prov),0,ret)
num <- as.numeric(ret)
reg2 <- regexpr("[1-9]", prov) + regexpr("无", prov) 
name <- substring(prov, 1, reg2)

attend <- data.frame(name,num)
attend <- na.omit(attend)