随机重新分配具有条件的组成员身份

Question

我有下表：

姓名	团体
一个	1
b	1
c	2
d	2
e	3
F	3

并且我想通过（i）确保名称不会分配给同一组，以及（ii）组成员身份的概率保持不变，来随机重新分配组成员身份。 此外，我试图 (iii) 避免将同一组下的所有名称分配给同一个新组。 本质上，我想实现这样的目标：

姓名	团体	新组
一个	1	2
b	1	3
c	2	1
d	2	3
e	3	1
F	3	2

如何在R中执行此操作？

Answer 1

有了所有的限制，这几乎不再是洗牌了：你可以使用模运算符。

df %>%
  group_by(group) %>%
  mutate(new_group = (2 + row_number() + group) %% 3 + 1)

  name  group new_group
  <chr> <int>     <dbl>
1 a         1         2
2 b         1         3
3 c         2         3
4 d         2         1
5 e         3         1
6 f         3         2

Answer 2

使用sample + setdiff的基本 R 选项

transform(
  df,
  new.group = ave(group, group, FUN = function(x) sample(setdiff(group, x),length(x)))
)

给

  name group new.group
1    a     1         2
2    b     1         3
3    c     2         1
4    d     2         3
5    e     3         1
6    f     3         2

数据

> dput(df)
structure(list(name = c("a", "b", "c", "d", "e", "f"), group = c(1L, 
1L, 2L, 2L, 3L, 3L)), class = "data.frame", row.names = c(NA,
-6L))