Отдельные номера из текста в R

Question

У меня есть текст:

text="blablabla 400ft blablabla" 

Я хотел бы получить:

"blablabla 400 ft blablabla" 

командами:

unlist(strsplit(text,split="[^0-9]+")) 
gsub("[^0-9]+", " ", text, fixed = FALSE) 

возвращают только 400.

Я хотел бы сказать gsub: заменить каждое число, которое вы найти в тексте то же число плюс пробел в начале и в конце. Как я могу это сделать?

Answer 1

Попробуйте

gsub('([0-9]+)([^0-9]+)', '\\1 \\2', text) 
#[1] "blablabla 400 ft blablabla" 

Также работает с несколькими экземплярами

text1 <- paste(text, text) 
gsub('([0-9]+)([^0-9]+)', '\\1 \\2', text1) 
#[1] "blablabla 400 ft blablabla blablabla 400 ft blablabla" 

Answer 2

Я хотел бы сказать GSUB: заменить каждый номер, который вы найдете в тексте тот же номер плюс пробелы в начале и в конце

gsub("([0-9]+)", " \\1 ", text) 

Answer 3

Вы также можете использовать внешний вид обходные, если есть некоторые случаи, когда вы хотите, чтобы отделить цифры от «Я», скажем, а не иначе:

text="blablabla 400ft blablabla 400notft" 

gsub('(?<=\\d)(?=ft)', ' ', text, perl = TRUE) 

# [1] "blablabla 400 ft blablabla 400notft" 

в отличие от gsub('([0-9]+)([^0-9]+)', '\\1 \\2', text) который отделит независимо от того, что происходит следующая:

gsub('([0-9]+)([^0-9]+)', '\\1 \\2', text) 

# [1] "blablabla 400 ft blablabla 400 notft" 

и вы также можете использовать другие условия:

text="blablabla 400ft blablabla 400notft blablabla 400in" 

gsub('(?<=\\d)(?=ft|in)', ' ', text, perl = TRUE) 
# [1] "blablabla 400 ft blablabla 400notft blablabla 400 in" 

или сказать вам необходимо добавить пробелы между буквами и цифрами при сохранении правил выше:

text2 <- 'blblabla 400ft blablaba400ft 400 blabla 400notft blah400notft' 
gsub('(?<=[A-Za-z])(?=\\d+)|(?<=\\d)(?=ft|in)', ' ', text2, perl = TRUE) 

# [1] "blblabla 400 ft blablaba 400 ft 400 blabla 400notft blah 400notft"