拆分包含多个电话号码的数据框列

Question

例如,该行之一包含9343435445/9433445532.我想拆分它们并将各个单独的粘贴在一个新列中.我尝试了以下内容.

bookings <- read.csv(file = 'bookings.csv', header = T)
bookings$set1 <- as.character(bookings$set1)
bookings$set3 <- gsub('\\/..........', '',bookings$set1)
bookings$set4 <- gsub('\\d{10}\\/', ' ',bookings$set1)

但是没有给出理想的输出.

Answer 1

您可以使用strcapture基数r(R≥3.4.0)

strcapture("(\\d+)/(\\d+)","9343435445/9433445532",data.frame(A=numeric(),B=numeric()))
           A          B
1 9343435445 9433445532