按R中选定的组对样本进行随机化

Question

在我的数据集中，90个人(样本(必须每人玩两种类型的游戏，总共四种类型：X、Y、Z和W。我想在R中随机化每个人将玩哪些游戏，以及游戏顺序，这样它就可以遵循以下方式：

UA	第一场比赛	第二场比赛
第1人	游戏X
第2人	游戏W	游戏Y
人物3	游戏Z	游戏W

1. 创建包含30个游戏X、Y、Z代表的向量
2. 创建该向量的随机排列
3. 为每个游戏添加游戏W
4. 排列每个游戏对

games <- t(
apply(
data.frame(
first_game = sample(rep(c("X", "Y", "Z"), 30), 90),
second_game = "W"
),
1,
function(x) sample(x, 2)
)
)
games <- cbind(paste("pearson", 1:90), games)
colnames(games) <- c("UA" ,"first_game", "second_game")
games <- as.data.frame(games)