wyodrębnić wszystkie numery z jednym ciągiem w R

Question

Wyobraźmy sobie, że masz ciąg:

strLine <- "The transactions (on your account) were as follows: 0 3,000 (500) 0 2.25 (1,200)" 

Czy istnieje funkcja, która pozbawia się numery na tablicy/produkującej następujące wymagane rozwiązanie Vector:

result <- c(0, 3000, -500, 0, 2.25, -1200)? 

tj

result[3] = -500 

zawiadomieniu, numery są przedstawiane w formie rachunkowości numery tak negatywne appe ar pomiędzy(). Można również założyć, że tylko liczby pojawiają się na prawo od pierwszego wystąpienia liczby. Nie jestem tak dobry w regexp, więc byłbym wdzięczny, gdybyś mógł pomóc, gdyby to było wymagane. Ponadto nie chcę założyć, że ciąg jest zawsze taki sam, dlatego staram się usunąć wszystkie słowa (i wszelkie znaki specjalne) przed położeniem pierwszego numeru.

Answer 1

library(stringr) 
x <- str_extract_all(strLine,"\\(?[0-9,.]+\\)?")[[1]] 
> x 
[1] "0"  "3,000" "(500)" "0"  "2.25" "(1,200)" 

Zmień parens do negatywów:

x <- gsub("\\((.+)\\)","-\\1",x) 
x 
[1] "0"  "3,000" "-500" "0"  "2.25" "-1,200" 

A potem as.numeric() lub taRifx::destring skończyć (na next version z destring wesprze negatywy domyślnie opcja keep tak nie będzie to konieczne):

library(taRifx) 
destring(x, keep="0-9.-") 
[1] 0 3000 -500 0 2.25 -1200 

LUB:

as.numeric(gsub(",","",x)) 
[1]  0 3000 -500  0  2.25 -1200 

Answer 2

Oto sposób baza R, w trosce o kompletność ...

x <- unlist(regmatches(strLine, gregexpr('\\(?[0-9,.]+', strLine))) 
x <- as.numeric(gsub('\\(', '-', gsub(',', '', x))) 
[1]  0.00 3000.00 -500.00  0.00  2.25 -1200.00 

Answer 3

Co dla mnie doskonale pracował podczas pracy na pojedynczych strun w data frame (jeden ciąg za rzędu w tej samej kolumnie) był następujące:

library(taRifx) 
DataFrame$Numbers<-as.character(destring(DataFrame$Strings, keep="0-9.-")) 

Wyniki są w nowej kolumnie z tego samego data frame.