r - 将带逗号的货币转换为数字

Question

我在数据框中有一列如下:

COL1
$54,345
$65,231
$76,234

如何将其转换为:

COL1
54345
65231
76234

我一开始尝试的方式是:

df$COL1<-as.numeric(as.character(df$COL1))

这不起作用，因为它说引入了 NA。

然后我这样尝试:

df$COL1<-as.numeric(gsub("\\$","",as.character(df$COL1)))

同样的事情也发生了。

有什么想法吗？

Answer 1

我们可以使用 readr 包中的 parse_number 来删除所有非数字字符。

library(readr)
parse_number(df$COL1)
#[1] 54345 65231 76234