Случайное присвоение столбцов другим столбцам в R

Question

У меня есть столбец с именами учеников и столбец, содержащий номер группы для каждого из этих учеников.Как я мог случайным образом назначить каждого студента судьей работы другой группы, кто-нибудь мог бы дать мне знать, как создать функцию для решения этой проблемы?Они не могут быть судьей своей собственной группы.

Bob Ross 1

Kanye West 1

Chris Evans 1

Robert Jr 1

Bruce Wayne 2

Peter Parker 2

Steven Strange 2

Danny rand 2

Daniel Fisher 2

Rob Son 3

Son Bob 3

Chun Li 3

Ching Do 3

Ping Pong 3

Michael Jackson 4

Rich Brian 4

Ryan Gosling 4

Nathan Nguyen 4

Justin Bieber 4

Answer 1

Другим вариантом с tidyverse будет group_by столбец group, определите вектор выборки с помощью setdiff и нарисуйте образец размера группы:

df <- data.frame(Student = LETTERS[1:20],
                 Group = gl(4, 5))

library(tidyverse)
df %>%
  group_by(Group) %>%
  mutate(Judge = sample(setdiff(unique(df$Group), Group), n(), replace = T))

# A tibble: 20 x 3
# Groups:   Group [4]
   Student Group Judge
   <fct>   <fct> <chr>
 1 A       1     4    
 2 B       1     2    
 3 C       1     3    
 4 D       1     3    
 5 E       1     4    
 6 F       2     4    
 7 G       2     4    
 8 H       2     1    
 9 I       2     1    
10 J       2     4    
11 K       3     4    
12 L       3     2    
13 M       3     1    
14 N       3     2    
15 O       3     2    
16 P       4     2    
17 Q       4     1    
18 R       4     2    
19 S       4     1    
20 T       4     3    

Answer 2

Вот один из способов, используя tidyverse методы.В основном это говорит о том, что для каждого значения (map_int) в group возьмите sample из групп, которые не являются текущими.

library(tidyverse)
df <- structure(list(name = c("Kanye West", "Chris Evans", "Robert Jr", "Bruce Wayne", "Peter Parker", "Steven Strange", "Danny rand", "Daniel Fisher", "Rob Son", "Son Bob", "Chun Li", "Ching Do", "Ping Pong", "Michael Jackson", "Rich Brian", "Ryan Gosling", "Nathan Nguyen", "Justin Bieber"), group = c(1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -18L))
df %>%
  mutate(
    to_judge = map_int(
      .x = group,
      .f = ~ sample(
        x = unique(group)[unique(group) != .x],
        size = 1
      )
    )
  )
#> # A tibble: 18 x 3
#>    name            group to_judge
#>    <chr>           <int>    <int>
#>  1 Kanye West          1        4
#>  2 Chris Evans         1        2
#>  3 Robert Jr           1        3
#>  4 Bruce Wayne         2        1
#>  5 Peter Parker        2        3
#>  6 Steven Strange      2        3
#>  7 Danny rand          2        4
#>  8 Daniel Fisher       2        1
#>  9 Rob Son             3        1
#> 10 Son Bob             3        2
#> 11 Chun Li             3        4
#> 12 Ching Do            3        4
#> 13 Ping Pong           3        4
#> 14 Michael Jackson     4        2
#> 15 Rich Brian          4        3
#> 16 Ryan Gosling        4        1
#> 17 Nathan Nguyen       4        2
#> 18 Justin Bieber       4        1

Создано в 2018-09-20 Представить пакет (v0.2.0).