r - 使用 R，将学生随机分配到 4 人一组

Question

我仍在学习 R，并被赋予了根据另一个变量将一长串学生分成四人一组的任务。我已将数据作为数据框加载到 R 中。如何在不替换的情况下对整行进行采样，从变量的 4 个级别中的每一个中抽取一个，并让 R 将数据输出到电子表格中？

到目前为止，我一直在修改 for 循环和示例函数，但我很快就忘记了。有什么建议？这是我正在尝试做的示例。鉴于:

Last.Name <- c("Picard","Troi","Riker","La Forge", "Yar", "Crusher", "Crusher", "Data")
First.Name <- c("Jean-Luc", "Deanna", "William", "Geordi", "Tasha", "Beverly", "Wesley", "Data")
Email <- c("a@a.com","b@b.com", "c@c.com", "d@d.com", "e@e.com", "f@f.com", "g@g.com", "h@h.com")
Section <- c(1,1,2,2,3,3,4,4)

df <- data.frame(Last.Name,First.Name,Email,Section)

我想从每个部分随机选择一个 Star Trek 角色，最后得到 2 组，每组 4 个。我希望整行的信息值(value)能够转移到包含所有组及其相应组号的新数据框。

Answer 1

我会使用很棒的包“dplyr”

require(dplyr)

random_4 <- df %>% group_by(Section) %>% slice(sample(c(1,2),1))

random_4
Source: local data frame [4 x 4]
Groups: Section

  Last.Name First.Name   Email Section
1      Troi     Deanna b@b.com       1
2  La Forge     Geordi d@d.com       2
3   Crusher    Beverly f@f.com       3
4      Data       Data h@h.com       4

random_4
Source: local data frame [4 x 4]
Groups: Section

  Last.Name First.Name   Email Section
1    Picard   Jean-Luc a@a.com       1
2     Riker    William c@c.com       2
3   Crusher    Beverly f@f.com       3
4      Data       Data h@h.com       4

%>% 表示“然后”

代码读作:

取 DF AND THEN 为所有“Section”，按位置(切片)1 或 2 选择。瞧。