单元格中的反向数字除以小数点

Question

我有一个损坏的价格表，如下所示：

          price
1         06.4
2         80.80
3         40.22
4         42.50
5         21.54
6         25.22
7         07.30
8         287.85
9         6.40
10        221.85
11        10.6
12        22.72
13        23.4
14        4.22

价格涨跌不一，就像您在第一行中看到的一样...

1         06.4
         ...
7         07.30

... 应该 ...

1         4.06
         ...
7         30.07

... 等等。

如果只有一个数字，则小数点后的数字必须首先是。

例如：
价格看起来像9.90或19.00，但不喜欢09.90或00.19。 因此，如果它是09.90，则实际上应该是90.09。

有人有主意吗？

Answer 1

这应该工作：

# Sample data
df <- read.table(text =
    "          price
1         06.4
2         80.80
3         40.22
4         42.50
5         21.54
6         25.22
7         47.30
8         287.85
9         6.40
10        221.85
11        10.6
12        22.72
13        23.4
14        4.22", colClasses = "character", header = T)

df$corrected_price <- sapply(strsplit(df$price, "\\."), function(x) {
    if (nchar(x[2]) == 1) x <- rev(x);
    paste(x, collapse = ".");
})
df;
#    price corrected_price
#1    06.4            4.06
#2   80.80           80.80
#3   40.22           40.22
#4   42.50           42.50
#5   21.54           21.54
#6   25.22           25.22
#7   47.30           47.30
#8  287.85          287.85
#9    6.40            6.40
#10 221.85          221.85
#11   10.6            6.10
#12  22.72           22.72
#13   23.4            4.23
#14   4.22            4.22

---

或另一种没有sapply方法：

mat <- matrix(unlist(strsplit(df$price, "\\.")), ncol = 2, byrow = TRUE);
mat[nchar(mat[, 2]) == 1, ] <- mat[nchar(mat[, 2]) == 1, ][, 2:1];
df$corrected_price <- apply(mat, 1, paste, collapse = ".");

Answer 2

我没有覆盖列a以便您可以比较并看到
确实需要反转的第1 11 13 15 16 17行。 标准是要颠倒为零的任何数字，并且也必须颠倒以美分为一位数字的任何数字：

transform(df,b=sub("(\\b0.*)\\.(.*)|(.*)\\.(\\d\\b)","\\2\\4.\\1\\3",a))
        a      b
1    06.4   4.06
2   80.80  80.80
3   40.22  40.22
4   42.50  42.50
5   21.54  21.54
6   25.22  25.22
7   47.30  47.30
8  287.85 287.85
9    6.40   6.40
10 221.85 221.85
11   10.6   6.10
12  22.72  22.72
13   23.4   4.23
14   4.22   4.22
15  00.99  99.00
16   01.9   9.01
17   10.3   3.10

数据：

structure(list(a = structure(c(3L, 17L, 13L, 14L, 6L, 10L, 15L, 
11L, 16L, 8L, 5L, 7L, 9L, 12L, 1L, 2L, 4L), .Label = c("00.99", 
"01.9", "06.4", "10.3", "10.6", "21.54", "22.72", "221.85", "23.4", 
"25.22", "287.85", "4.22", "40.22", "42.50", "47.30", "6.40", 
"80.80"), class = "factor")), .Names = "a", row.names = c(NA, 
-17L), class = "data.frame")