R entfernen Sie Währungsreferenz in numerischen Wert

Question

Wie kann ich die Währungsbezüge entfernen. Ich habe einige Werte mit Währungen, die manchmal mit 3 Zeichen und manchmal mit $ angezeigt werden. Zum Beispiel:

Val.curr <- c('GBP 550.00', 'EUR 716.50', 'EUR 842.00', '$ 1541.54', '$ 1541.54') 

kann ich die Währungen wie entfernen:

as.numeric(gsub("\\EUR", "", Val.curr[3])) 
as.numeric(gsub("\\$", "", Val.curr[4])) 

Aber ist es eine effizientere Art und Weise, sie alle zur gleichen Zeit zu entfernen?

Answer 1

Dank Chrisss Kommentar oben habe ich die Lösungen gefunden habe, die ich hier, wie es schreiben könnte jemand anders helfen:

install.packages("readr") 
library(readr) 
readr::parse_number(Val.curr) 

Answer 2

Wir sub

as.numeric(sub("[^0-9.]+", "", Val.curr)) 
#[1] 550.00 716.50 842.00 1541.54 1541.54