使用 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])