有一个字符串如下:
x <- c("31.12.2009EUR", "31.12.2009", "23.753,38", "0,00")
我想将其解析为
c(NA, NA, 23753.38, 0.00)
我试过:
require(readr)
parse_number(x, locale=locale(decimal_mark = ",")) # This ignores the grouping_mark
#> 31122009.00 31122009.00 23753.38 0.00
parse_double(x, locale=locale(decimal_mark = ","))
#> NA NA NA 0
我想出的唯一方法:
out <- rep(NA, length(x))
ind <- grep("^[0-9]{1,3}(\\.[0-9]{3})*\\,[0-9]{2}", x)
out[ind] <- parse_number(x[ind],locale=locale(decimal_mark = ","))
out