R语言-12匹配出字符串中数字

正则匹配

#foo函数可匹配出“139元午餐”中的138,start得到表达式的起始匹配位置end得到表达式的结束匹配位置
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))