在R中，使用正则表达式匹配多个模式并在列表中添加新列

Timothy Harding 发表于 Dev

蒂莫西·哈丁（Timothy Harding）

我发现了许多示例，这些示例说明了如何使用一个模式和一个替换来匹配和更新整个列表，但是我现在正在寻找的是在单个语句或循环中针对多个模式和多个替换执行此操作的方法。

例子：

> 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

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。