如何转换尾随减号

Question

CSV文件中的数据末尾包含负号。如何将其转换为常规数字。

CSV中的数据

Amount      
10
12.12-
41
42-
14.14-

预期

10
-12.12
41
-42
-14.14

Answer 1

我们可以使用strsplit

执行此操作

sapply(strsplit(df1$Amount, "(?=-)", perl = TRUE), function(x) 
         as.numeric(paste(sort(x), collapse="")))
#[1]  10.00 -12.12  41.00 -42.00 -14.14