我已经找到了很多关于如何使用一个模式和一个替换来匹配和更新整个列表的示例,但我现在正在寻找的是在单个语句或循环中为多个模式和多个替换执行此操作的方法.
例：
> print(recs) phonenumber amount 1 5345091 200 2 5386052 200 3 5413949 600 4 7420155 700 5 7992284 600
我想插入一个名为’service_provider’的新列,其中/ ^ 5 /为Company1,/ ^ 7 /为Company2.
我可以使用以下两行R来做到这一点：
recs$service_provider[grepl("^5",recs$phonenumber)]<-"Company1"
recs$service_provider[grepl("^7",recs$phonenumber)]<-"Company2"
然后我得到：
phonenumber amount service_provider 1 5345091 200 Company1 2 5386052 200 Company1 3 5413949 600 Company1 4 7420155 700 Company2 5 7992284 600 Company2
我想提供一个列表,而不是一组离散的grepl,因此更容易将国家特定信息保存在一个地方,而所有编程逻辑保存在另一个地方.
thisPhoneCompanies<-list(c('^5','Company1'),c('^7','Company2'))
在其他语言中,我会在电话公司列表中使用for循环
For every row in thisPhoneCompanies
Add service provider to matched entries in recs (such as the grepl statement)
end loop
但我明白这不是在R中做到这一点的方法.
解决方法
使用stringi：
library(stringi)
recs$service_provider <- stri_replace_all_regex(str = recs$phonenumber,pattern = c('^5.*','^7.*'),replacement = c('Company1','Company2'),vectorize_all = FALSE)
recs
# phonenumber amount service_provider
# 1 5345091 200 Company1
# 2 5386052 200 Company1
# 3 5413949 600 Company1
# 4 7420155 700 Company2
# 5 7992284 600 Company2
