R: GSUB слова между пространством

Question

У меня есть текст, который выглядит следующим образом:

a <- "233,236,241 solitude ΔE=1.9" 

То, что я хочу сделать, это извлечь второе слово между двумя пространствами(), что дает этот выход

> solitude 

Я попробовал два метода:

a1 <- strsplit(a,' ',fixed=TRUE)[[1]][2] 
a2 <- sapply(strsplit(a, " ", fixed=TRUE), "[", 2) 

Но это всегда показывает:

ΔE=1.9 

Каков правильный путь?

Answer 1

Попробуйте это:

gsub("\\s.+$","",gsub("^.+[[:digit:]]\\s","",a)) 

Answer 2

Вот подход с использованием классов захвата (шаблоны внутри скобок) и классы персонажей (узоры внутри квадрата brackest).

sub("(^[^ ]*[ ])([^ ]*)([ ].*$)" , "\\2", a) 
[1] "solitude" 

Комментирование первый шаблон класса захвата:

"(^[^ ]*[ ])([^ ]*)([ ].*$)" , "\\2", a) 
     \finds first space 
     \ an arbitrary number of times 
    \\ inside a character class an '^' as the first character ... 
     signals negation of character class. This one with only the space character in it. 
    \----- '^' marks the beginning of a character value 

Второй шаблон класса захвата:

"(^[^ ]*[ ])([^ ]*)([ ].*$)" , "\\2", a) 
       \ an arbitrary number of times 
       \\negation of character class with only the space character in it. 

Третий класс захвата:

"(^[^ ]*[ ])([^ ]*)([ ].*$)" , "\\2", a) 
        \ the second space 
         \\anything after second space to end. 

В "\\<n>" данные, введенные в replacement ссылаются на класс захвата, соответствующий порядку, который они отображаются в аргументе pattern.