从列表中选择因子而不替换

Question

我正在编写一个脚本，该脚本会在给定一组可供选择的球员和每个位置的名册限制的情况下自动进行模拟体育选秀。

如果我有三个团队从以下数据框架中起草，我将如何构建这样的脚本？

团队 1 使用的排名与使用共识的团队 2 和 3 不同；每支球队将选秀一名“QB”和一名“RB”，每位球员只能选秀一次（不得更换）。

在我看来，输出将是单个数据框。

players <- c("Dan Marino", "Tony Dorsett", "Joe Montana", "John Elway",
 "Jim Brown", "Barry Sanders")
position <- c("QB", "RB", "QB", "QB", "RB", "RB")
Team1_rank <- c(2,4,5,6,3,1)
consensus_rank <- c(1,6,3,5,2,4)
player_pool <- data.frame(players, position, Team1_rank, consensus_rank)

            players position Team1_rank consensus
1    Dan Marino       QB          2         1
2  Tony Dorsett       RB          4         6
3   Joe Montana       QB          5         3
4    John Elway       QB          6         5
5     Jim Brown       RB          3         2
6 Barry Sanders       RB          1         4

Answer 1

如果要对数据帧的行进行采样，请在 i 索引上使用 sample()，即

player_pool[sample(6,6), ]

将随机重新排列数据帧。如果您只想要每种类型的播放器的特定数量，我会首先将数据框划分为单独的播放器类型，然后对每个播放器类型进行排序。您还可以在 sample() 中指定每个选择的概率（参见 ?sample）

如果您希望列表随着时间的推移而减少，您可以设置

player_pool <- player_pool[sample(nrow(player_pool),nrow(player_pool)),]

pick <- player_pool[1,]

player_pool <- player_pool[2:nrow(player_pool),]

在一个循环中。