我有一组来自实验的参与者数据，我需要用一列新的匿名ID替换一列可识别的ID。我已经找到了可以为我生成随机ID的ID包，但我不知道如何做到这一点，以便它们与现有的ID匹配。
具体地说，每个参与者在tibble中有多行(但每个参与者的行数并不总是相同(，所以我需要插入一列随机ID，使得例如Bob的所有行都将获得ID 123，而Alice的所有行将获得ID 456。
我认为使用apply可能是最好的，但我不确定函数应该是什么，这样我就不会为每一行获得不同的随机ID。
data$randomID <- apply(data, 1, function(x) {random_id(bytes=5)} )
data$randomID <- as.integer(factor(data$ID, levels = unique(data$ID)))