提取空格后的文本字符串和带gsub R的符号

Question

我需要从以下文本字符串中提取第一个单词（德语）

substr(details[1],0,50)%>%
+     gsub("[^a-z/A-Z/,/ ]","" ,.)%>%  
+     gsub("A-Z.*" , "", .)
[1] "  , German, European, Central European"

对于许多组合，我尝试用gsub提取，但无法提取

非常感谢

Answer 1

假设您的字符串是s <- " , German, European, Central European"，也许您可​​以使用以下代码来获取单词German：

w <- gsub("\\s+,\\s+([[:alpha:]]+),.*","\\1",s)

或

w <- trimws(unlist(strsplit(s,split = ","))[2])