用R中的随机数替换字符

Question

我有以字符为单位的数据列表。我想用随机数代替这些字符。

characters<-LETTERS[c(1:10,1:10,11:15)]
numbers <- floor(runif(16, min = 1, max = 100))

如何将数字添加到每个字符中？

Answer 1

只需使用factors并转换为数字。

as.numeric(as.character(factor(characters, labels=numbers)))
# [1] 91 93 29 83 64 52 73 14 66 70 91 93 29 83 64 52 73 14 66 70 46 72 93 26 46

您也可以按任意顺序读取中的levels=。

as.numeric(as.character(factor(characters, 
levels=c("L", "E", "D", "B", "H", "O", "C", "K", "G", "A", "N", "J", 
"M", "I", "F"),
labels=numbers)))
# [1] 70 83 73 29 93 46 66 64 26 72 70 83 73 29 93 46 66 64 26 72 14 91 93 46 52

或者，使用R>=4.1

characters |>
factor(levels=c("L", "E", "D", "B", "H", "O", "C", "K", "G", "A", "N", "J", 
"M", "I", "F"),
labels=numbers) |>
as.character() |>
as.numeric()
# [1] 70 83 73 29 93 46 66 64 26 72 70 83 73 29 93 46 66 64 26 72 14 91 93 46 52

---

数据：

set.seed(42)
characters <- LETTERS[c(1:10, 1:10, 11:15)]
numbers <- floor(runif(length(unique(characters)), min=1, max=100))

Answer 2

创建一个引用密钥，然后合并数据

data <- data.frame(char = LETTERS[c(1:10,1:10,11:15)])
key <- data.frame(char = unique(data$char), num = sample(0:99, size=length(unique(data$char)), replace=FALSE))
merge(key, data, on="char")