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

extract a text string after spaces and a symbol with gsub R