该函数将用文本而不是数字来匿名化数据

Question

我有一个简单的自定义函数，该函数将数据匿名化为数字，以便快速匿名化数据以用作样本数据。是否可以返回文本而不是数字？

anonymiser_func <- function(x) {
  match(x, sample(unique(x)))
}

Z = sample(LETTERS,10)

anonymiser_func(Z)
[1]  6  9 10  5  3  8  1  7  2  4