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