目前,下面的脚本将组合的项目代码拆分为特定的项目代码.
rule2 <- c("MR")
df_1 <- test[grep(paste("^",rule2,sep="",collapse = "|"),test$Name.y),]
SpaceName_1 <- function(s){
num <- str_extract(s,"[0-9]+")
if(nchar(num) >3){
former <- substring(s, 1, 4)
latter <- strsplit(substring(s,5,nchar(s)),"")
latter <- unlist(latter)
return(paste(former,latter,sep = "",collapse = ","))
}
else{
return (s)
}
}
df_1$Name.y <- sapply(df_1$Name.y, SpaceName_1)
示例,组合项目代码:房间324-326分成MR324 MR325 MR326.
但是对于这个特定的组合项目代码:房间309-311分成MR309 MR300 MR301.
我该如何修改脚本给MR309 MR310 MR311？