使用 R 中的正则表达式删除电话国家/地区代码

Question

我正在尝试清理 df 中的一列电话号码。

我想删除电话号码开头的国家代码 (254)。有时会重复此国家代码 (254254)，有时电话号码本身会被截断 (2540)。我不想删除数字本身中出现的任何 254 实例。我尝试了一系列解决方案，包括

name <- c('James','Peter','Jolie', 'Freddy')
phoneNumber <- c("254703162522", "254254342544942", "2540", "728124572")
df <- data.frame(name, phoneNumber)

df$phoneNumber <- df$phoneNumber %>% str_replace_all('/254{1,2}/', '')

和

df2 <- df %>% 
  mutate_all(funs(str_replace(., '/254{1,2}/', '')))

但我所做的似乎并没有真正改变价值观。任何指针将不胜感激。

Answer 1

这是否满足您的需求？

df %>% 
  mutate(phoneNumber_new = str_remove_all(phoneNumber, '^(254)+'))

解释：^ 表示字符串的开头，+ 重复前面的字符串。