r - 标准化电话号码数据

Question

我正在为此寻找更优雅的解决方案:

phone_number <- function(x) {
x <- gsub("[\\() -]", "", x) 
x <- gsub("^(.{3})(.{3})(.*)","\\1-\\2-\\3", x, perl = TRUE)
}

这需要这样的数据:

(123) 123-1234
123-123-1234
123 123-1234

并产生这个:

123-123-1234
123-123-1234
123-123-1234

Answer 1

我们可以做

gsub(".*(\\d{3}).*(\\d{3}).*(\\d+).*?", "\\1-\\2-\\3", x)
# [1] "123-123-1234" "123-123-1234" "123-123-1234"

假设我们在一个字符的某处只有三组数字，而它们正是我们所需要的。