没有重复的样本列

Question

我目前正在编写一个自定义函数来实现这一点，但我想知道 R 中是否有一个简单的内置函数可以实现相同的目标。

我有如下数据：

stringVariable1     stringVariable2

string1             a
string1             b
string1             d
string2             e
string2             a
string3             b

我想对 stringVariable2 中的数据进行洗牌，但我不希望 1 中的不同 stringVariables 出现重复。

所以这是不可接受的（因为 'b' 相对于 string1 是重复的）：

stringVariable1     stringVariable2

string1             b
string1             b
string1             d
string2             a
string2             e
string3             d

但这会：

stringVariable1     stringVariable2

string1             b
string1             e
string1             d
string2             a
string2             e
string3             d

所以基本上我试图随机化 stringVariable2，而不是替换不同的 stringVariable1。创建自定义函数是唯一的方法吗？

谢谢！

Answer 1

stringVariable2 的值是否在 stringVariable1 的组中重复？如果不是，则可以使用以下内容执行分组排列（d 是包含数据的数据框的名称）：

d$perm1<-as.vector(unlist(tapply(d$stringVariable2, d$stringVariable1, sample)))

这 (tapply()) 对每组 stringVariable1 中的 stringVariable2 应用不替换的采样（使用 sample()）。最后，使用unlist() 和as.vector() 将结果列表转换为向量。最后一个函数只是去掉向量内的观察名称。然后将置换后的值存储在原始数据框的 perm1 列中。