使两个随机团队形成数据集,并在R中获得整体团队得分

Question

假设我有一个由10名球员(球员)组成的足球队,我应该从中制作两个子团队,每队5人,然后计算每个团队的总分.

players <- read.table(text=
"paul    3
ringo   3
george  5
john    5
mick    1
ron     2
charlie 3
ozzy    5
keith   3
brian   3", as.is=TRUE)

我已经提取了一组随机的5名玩家:

t1 <- sample(players$V1, size = 5)

但是要创建第二支球队(不包括第一支球员)并计算两支球队的总得分,我已完成封锁.

Answer 1

您可以尝试对球员的指数进行抽样以构建第一支球队,而不是对名称进行抽样.

idx1 <- sample(1:nrow(players), 5)

您实际上可以使用这些索引来获取有关每个团队的所有信息:

team1 <- players[idx1,]
team2 <- players[-idx1,]

每个团队的得分可以用sum(team1$V2)和计算sum(team2$V2).