library(tidyverse)
library(readxl)
library(stargazer)
students <- read_xlsx("student_names.xlsx")
groupsize <- 4
randnums <- data.frame(sample(1:nrow(students), nrow(students), replace=F),
sample(1:nrow(students), nrow(students), replace=F))
names(randnums) <- c("randnum1", "randnum2")
students2 <- bind_cols(students, randnums)
students2 <-
students2 %>%
mutate(group9am = ntile(randnum1, nrow(students)/groupsize),
group940am = ntile(randnum2, nrow(students)/groupsize))
StudentGroup <-
students2 %>%
select(-randnum1, - randnum2)
9am Groups
StudentGroup9am <-
StudentGroup %>%
select(Student, group9am) %>%
arrange(group9am)
stargazer(StudentGroup9am, type = "html", summary = FALSE, rownames = F)
|
|
|
Student
|
group9am
|
|
|
|
Dean-Slobod, Theo D
|
1
|
|
Glez, Mariel
|
1
|
|
Mekbib, Ruth Tekleab
|
1
|
|
Stone, Mizuki A
|
1
|
|
Hwang, Yejin
|
2
|
|
Ngo, Ngan Ha D
|
2
|
|
Norredine, Nouhaila
|
2
|
|
Yuan, Luming
|
2
|
|
Buchanan, Sophia M
|
3
|
|
Garcia-Israel, Katya M
|
3
|
|
Ren, Alexandra H
|
3
|
|
Tasneem, Bushra
|
3
|
|
Azhar, Zoya
|
4
|
|
Bouzaher, Julia L
|
4
|
|
Wright, Elisse J
|
4
|
|
Zhi, Anmei
|
4
|
|
Ahmad, Ramlah
|
5
|
|
Chen, Tomomi
|
5
|
|
Gans, Tommi C
|
5
|
|
Tse, Victoria M
|
5
|
|
Bwiza, Belise
|
6
|
|
Delorme, Elizabeth K
|
6
|
|
McKinley, Alex N
|
6
|
|
Schad, Natalie E
|
6
|
|
Ainetchi, Maxine L
|
7
|
|
Chen, Yu
|
7
|
|
Kyaw, Honey
|
7
|
|
Zamudio-Moore, Isabel
|
7
|
|
|
9:40am Groups
StudentGroup940am <-
StudentGroup %>%
select(Student, group940am) %>%
arrange(group940am)
stargazer(StudentGroup940am, type = "html", summary = FALSE, rownames = F)
|
|
|
Student
|
group940am
|
|
|
|
Buchanan, Sophia M
|
1
|
|
Glez, Mariel
|
1
|
|
Mekbib, Ruth Tekleab
|
1
|
|
Tasneem, Bushra
|
1
|
|
Ahmad, Ramlah
|
2
|
|
Delorme, Elizabeth K
|
2
|
|
Hwang, Yejin
|
2
|
|
Kyaw, Honey
|
2
|
|
McKinley, Alex N
|
3
|
|
Tse, Victoria M
|
3
|
|
Zamudio-Moore, Isabel
|
3
|
|
Zhi, Anmei
|
3
|
|
Ainetchi, Maxine L
|
4
|
|
Norredine, Nouhaila
|
4
|
|
Schad, Natalie E
|
4
|
|
Yuan, Luming
|
4
|
|
Bwiza, Belise
|
5
|
|
Chen, Tomomi
|
5
|
|
Ngo, Ngan Ha D
|
5
|
|
Stone, Mizuki A
|
5
|
|
Dean-Slobod, Theo D
|
6
|
|
Gans, Tommi C
|
6
|
|
Garcia-Israel, Katya M
|
6
|
|
Wright, Elisse J
|
6
|
|
Azhar, Zoya
|
7
|
|
Bouzaher, Julia L
|
7
|
|
Chen, Yu
|
7
|
|
Ren, Alexandra H
|
7
|
|
|
Presuming you don’t want to randomize every time you knit this R Markdown Document, you can write the student groups to a csv to use again later:
write_csv(StudentGroup, "student_groups.csv")