模式匹配，并与'＆'和ifelse变异

Question

我想结合使用mutate()与ifelse()和&。然而，R doesn't实现变化，但我没有得到任何错误。

因此，必须有一个错字。这是我使用的代码：

library(dplyr)
dat %>% 
  mutate(City=ifelse(grepl("\\(030)|30|^\\+4930|(30)|^\\+49 30|^0049030|^\\+49030|0049030|^4930|^4930|^030", 
                             `Business Phone`) & Country == "Germany", "Berlin", City))

我们的目标是归咎于"Berlin"如果`Business Phone`在grepl()模式，如果Country是"Germany"。

这里是一个小dput：

structure(list(Country = c("Germany", "Germany", "Germany", "Germany", 
"Germany", "Germany", "Germany", "Germany", "Germany", "Germany"
), City = c(NA_character_, NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, 
NA_character_), `Business Phone` = c("[phone]", "[phone]", 
"[phone]", "[phone]", "[phone]", 
"[phone]", "[phone]", "[phone]", 
"[phone]", "[phone]")), row.names = c(NA, 
-10L), class = c("tbl_df", "tbl", "data.frame"))

Answer 1

你可以使用正则表达式和有条件分配。

dat$City[grepl("^\\+?(0?0)?(49)0?\\s?\\(?(30).+|^\\(?(0?(30)).+", 
      dat$`Business Phone`) & dat$Country == "Germany"] <- "Berlin"

> dat
# A tibble: 10 x 3
   Country City   `Business Phone` 
   <chr>   <chr>  <chr>            
 1 Germany Berlin [phone]
 2 Germany Berlin [phone]
 3 Germany Berlin [phone]
 4 Germany Berlin [phone]
 5 Germany Berlin [phone]
 6 Germany Berlin [phone]
 7 Germany Berlin [phone]
 8 Germany Berlin [phone]
 9 Germany Berlin [phone]
10 Germany Berlin [phone]

与此数据Test：

nums <- c("[phone]", "[phone]", "[phone] ", 
"[phone] ", "[phone]", "30456745674", "[phone]", 
"(30)45674567", "[phone]", "004903045674567", "[phone]", 
"004903045674567", "493045674567", "493045674567", "03045674567", 
"[phone]", "004920000", "204054756", "3145675678", 
"49403235678", "49030345435", "20456745674", "[phone]", 
"(20)45674567", "[phone]", "004103045674567", "[phone]", 
"004104945674567", "413045674567", "413045674567", "01045674567"
)

> nums[grepl("^\\+?(0?0)?(49)0?\\s?\\(?(30).+|^\\(?(0?(30)).+", nums)]
 [1] "[phone]" "[phone]" "30456745674"       "[phone]"    
 [5] "(30)45674567"      "[phone]"    "004903045674567"   "[phone]"   
 [9] "004903045674567"   "493045674567"      "493045674567"      "03045674567"      
[13] "49030345435"