r - 在 readr R 中使用 parse_number 的负货币值

Question

我正在导入需要从字符串转换为数字的销售数据。

我正在尝试使用 parse_number在readr这样做，但它会抛出负值的解析错误，并将它们强制为 NA

举个例子:

x <- c("$1,000.00", "$500.00", "-$200.00")

y <- parse_number(x)

Warning: 1 parsing failure.
row # A tibble: 1 x 4 col row col expected actual expected <int> <int> <chr> <chr> actual 1 3 NA a number -

y

[1] 1000 500 NA

是否 parse_number或 readr是否具有允许我为负货币值保留“-”的功能？

(我不是要 as.numeric(gsub()) 解决方案。)

Answer 1

如果您想按照 comment here 继续使用 tidyverse 函数你可以只使用 stringr 函数而不是 gsub。像这样的选项:

library(tidyverse)
x <- c("$1,000.00", "$500.00", "-$200.00")
x %>%
  str_replace("^-\\$(.*)$", "$-\\1") %>%
  parse_number()
#> [1] 1000  500 -200

x %>%
  str_remove("\\$") %>%
  parse_number()
#> [1] 1000  500 -200

由 reprex package 创建于 2018-05-03 (v0.2.0).