字母序列与数字序列R

Question

我有一个数据框架，看起来像：

df <- as.data.frame(c("AAA", "AAB", "AAC", "BBA"))
df

1                           AAA
2                           AAB
3                           AAC
4                           BBA

我想得到这样的东西：

1                           111
2                           112
3                           113
4                           221

Answer 1

在base R中，我们可以使用chartr

df[[1]] <- chartr("ABC", "123", df[[1]])
df[[1]]
#[1] "111" "112" "113" "221"

如果替换的值有多个字符，则一般的解决方案是str_replace_all --使用命名的键/值向量来匹配和替换

library(stringr)
 str_replace_all(df[[1]],   setNames(c("1", "2", "3"), c("A", "B", "C")))
[1] "111" "112" "113" "221"

Answer 2

另一种选择是使用基数R中的LETTERS和命名向量将字母转换为各自的数字。

libary(tidyverse) 

map_chr(strsplit(df$x, ""), ~ str_flatten(setNames(seq_along(LETTERS), LETTERS)[.]))
[1] "111" "112" "113" "221"

Answer 3

另一种选择是使用gsubfn将字母替换为其编号：

library(gsubfn)
v <- setNames(seq_along(LETTERS), LETTERS)
transform(df, numbers = gsubfn("(.)", as.list(v), df[[1]]))

输出：

  c..AAA....AAB....AAC....BBA.. numbers
1                           AAA     111
2                           AAB     112
3                           AAC     113
4                           BBA     221