R函数将SI前缀映射到它们的值

Question

我有一些格式很差的数据；键列默认为字符，因为它具有符号（例如 ? 和 -）、字母和数字值。有大约 20 个唯一值。我想将该列中的所有内容映射到一个新列，该列是 SI base 10 幂的集合。我已经尝试使用 dplyr recode() 函数执行此操作，但没有成功。这是我拥有的数据的一个示例：

df <- data.frame(Type = letters[1:5], Value = c(5.2, 7, 42.5, 
1, 0.3), Exp = c("m", "k", "b", "6", "?"))

structure(list(Type = c("a", "b", "c", "d", "e"), 
Value = c(5.2, 7, 42.5, 1, 0.3), Exp = c("m", "k", "b", 
"6", "?")), class = "data.frame", row.names = c(NA, -5L))

exp 变量是一团糟——我想我需要能够将m 映射到10^6（用于“百万”），k 到10^3（用于“千”），等等。plyr 中的mapvalues() 函数可以工作，但dplyr 和plyr 之间的冲突太多，我无法同时加载。

Answer 1

我只需创建一个包含映射的表并将其连接到数据框：

df <- data.frame(Type = letters[1:5], 
    Value = c(5.2, 7, 42.5, 1, 0.3),
    Exp = c("m", "k", "b", "6", "?"))


units <- structure(list(SI = c("m", "k", "b", "6", "?"), 
    factor = c("1,00E+06", "1,00E+03", "1,00E+09", NA, NA)),
    class = "data.frame", row.names = c(NA, -5L))

df %>% left_join(units, by=c(Exp="SI"))

  Type Value Exp   factor
1    a   5.2   m 1,00E+06
2    b   7.0   k 1,00E+03
3    c  42.5   b 1,00E+09
4    d   1.0   6     <NA>
5    e   0.3   ?     <NA>