正則匹配
#foo函數(shù)可匹配出“139元午餐”中的138,start得到表達式的起始匹配位置end得到表達式的結(jié)束匹配位置
foo <- function(word){
pattern <- '[0-9]+元'
gregout <- gregexpr(pattern,word)
start <- gregout[[1]]
end <- gregout[[1]]+attr(gregout[[1]],'match.length')-2
money <- substr(word,start,end)
if(money==""){money <- NA}else{money<-as.numeric(money)}
return(money)
}
package$name<- unlist(lapply(package$name,foo))
