Извлечение значений из строки символов,

Question

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

data.frame(puts = c("Put Daimler N JUN13 EUR 50 (24.06.2013)", 
    "Put Daimler N SEP12 EUR 40.5 (24.09.2012)", 
    "Put Wincor Nixdorf OCT14 CHF 43.80 (20.10.2")) 

Мне нужно извлечь так называемые цены простиранию из каждой строки. Это означает, что мне нужно отделить цифры, которые следуют за описанием валюты EUR и CHF.

К сожалению, единственная константа в каждой строке состоит в том, что цены следуют либо символам EUR, либо CHF. Поэтому моя идея состояла в том, чтобы извлечь первое числовое значение после появления «EUR» или «CHF», но я полностью не смог представить какой-либо презентабельный результат.

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

data.frame(puts = c("Put Daimler N JUN13 EUR 50 (24.06.2013)", 
    "Put Daimler N SEP12 EUR 40.5 (24.09.2012)", 
    "Put Wincor Nixdorf OCT14 EUR 43.80 (20.10.2"), 
    strike = c(50, 40.5, 43.80)) 

Спасибо за вашу помощь! Pat

Answer 1

Вы можете использовать функцию sub.

df <- data.frame(puts = c("Put Daimler N JUN13 EUR 50 (24.06.2013)", 
       "Put Daimler N SEP12 EUR 40.5 (24.09.2012)", 
       "Put Wincor Nixdorf OCT14 CHF 43.80 (20.10.2")) 
df$strike <- as.numeric(sub(".* (?:CHF|EUR) (\\d+(?:\\.\\d+)?).*", "\\1",df$puts)) 
df 
#            puts strike 
# 1  Put Daimler N JUN13 EUR 50 (24.06.2013)  50 
# 2 Put Daimler N SEP12 EUR 40.5 (24.09.2012) 40.5 
# 3 Put Wincor Nixdorf OCT14 CHF 43.80 (20.10.2 43.80 

или

df$strike <- as.numeric(str_extract(df$puts, perl(" (?:EUR|CHF)\\s*\\K\\d+(?:\\.\\d+)?"))) 

\\K отбрасывает ранее совпавшие символы из печати в финале. Таким образом, ранее сопоставленные EUR и CHF отбрасываются.

Answer 2

Это еще одно решение. Менее чистый, чем @Avinash, но он работает.

df<- data.frame(puts = c("Put Daimler N JUN13 EUR 50 (24.06.2013)", 
        "Put Daimler N SEP12 EUR 40.5 (24.09.2012)", 
        "Put Wincor Nixdorf OCT14 CHF 43.80 (20.10.2"),stringsAsFactors=F) 

Вы разделите строку на "", а затем преобразуете ее в матрицу числовых. Все элементы, которые не могут быть привязаны к числовым, будут NA. Удалите их, и у вас есть размолвка strike

out.aux <- apply(df,2, function(x) strsplit(x, " ")) 
out.aux <- as.numeric(unlist(out.aux)) 
df$strike <- out.aux[!is.na(out.aux)] 
rm(out.aux) 

> df 
             puts strike 
1  Put Daimler N JUN13 EUR 50 (24.06.2013) 50.0 
2 Put Daimler N SEP12 EUR 40.5 (24.09.2012) 40.5 
3 Put Wincor Nixdorf OCT14 CHF 43.80 (20.10.2 43.8