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