r - 用数字和字母分割字符串

Question

我有字母和数字混合的字符串。我想把它们分开，然后从它们中造一个句子。

a<-"DiabetesTestInPast12months"
b<-"SmokingMorethan12PackYears"
c<-"30MinsOrLessExercise"

我想得到:

a<-"Diabetes test in past 12 months"
b<-"Smoking more than 12 pack years"
c<-"30 mins or less exercise"

我想不出一种方法来使用 stringr 提取向量中的数字的 str_extract_all .

Answer 1

我会尝试:

#combine all the string in a vector
a<-c(a,b,c)
gsub("(?<=[0-9])(?=[A-Za-z])","\\1 \\2",
     gsub("(?<=[a-z])(?=[A-Z0-9])","\\1 \\2",a,perl=TRUE),
     perl=TRUE)
#[1] "Diabetes Test In Past 12 months" "Smoking Morethan 12 Pack Years" 
#[3] "30 Mins Or Less Exercise"

稍微简化一下:

gsub("(?<=[a-z])(?=[A-Z0-9])|(?<=[0-9])(?=[A-Za-z])"," ",a,perl=TRUE)

得到相同的输出。

请注意 Morethan无法拆分，因为无法知道它们是单独的单词( MoreThan 会)。