R删除数值中的货币参考

Question

如何删除货币参考。我有些货币有时会显示3个字符，有时也会显示$。例如：

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

我可以删除诸如货币：

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

但是，有没有在同一时间将其删除所有的更有效的方法？

Answer 1

由于Chrisss评论上面我已经找到了解决方案，我张贴在这里，因为它可能会帮助另外一个人：

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

Answer 2

我们可以使用sub

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