我想根据比赛结果给分，但是出现错误

Question

我在计分游戏中遇到问题游戏是俄罗斯轮盘赌我要复制游戏10次给幸存者一分

game <- replicate(10, shot())
data.frame(table(game))

我得到了这个游戏结果

              game Freq
1 player1 game end    4
2 player3 game end    2
3 player4 game end    1
4 player6 game end    3

我想知道如何将游戏结果转换成这样的分数通过给幸存者一分

1 player1 point 6
2 player2 point 10
3 player3 point 8
4 player4 point 9
5 player5 point 10
6 player6 point 7

但我对此一无所知我迫切需要一些帮助

我添加我的代码

shot <- function()
{
  if(sample(c(1,-1),1,prob=c(1/6,5/6)) == T) 
  {
    print("player1 game end") #if p1 get true at 1st round it end
  }
  else if(shot <- sample(c(1,-1),1,prob=c(1/5,4/5)) == T) 
  {
    print("player2 game end") #if p2 get true at 2nd round it end
  }
  else if(shot <- sample(c(1,-1),1,prob=c(1/4,3/4)) == T) 
  {
    print("player3 game end") #if p3 get true at 3rd round it end
  }
  else if(shot <- sample(c(1,-1),1,prob=c(1/3,2/3)) == T) 
  {
    print("player4 game end") #if p4 get true at 4th round it end
  }
  else if(shot <- sample(c(1,-1),1,prob=c(1/2,1/2)) == T) 
  {
    print("player5 game end") #if p5 get true at 5th round it end
  }else if(shot <- sample(c(1,-1),1,prob=c(1,0)) == T) 
  {
    print("player6 game end") #if p6 get true at 5th round it end
  }
}
shot()

我的游戏从这个代码开始我如何结合评分代码


game
player <- sample(1:6, size = 6, replace = FALSE) 
player

names(player)[player==1] <- "p1"  
names(player)[player==2] <- "p2" 
names(player)[player==3] <- "p3" 
names(player)[player==4] <- "p4" 
names(player)[player==5] <- "p5"

Answer 1

这是我们可以做的。首先，我们创建一个 players data.frame，我们将使用它来加入游戏结果 data.frame。然后我们计算score，看起来是10 - Freq:

# generate games
set.seed(1) # reproducible
games <- replicate(10, shot())
# make players data
players <- data.frame(player = paste0("player", 1:6))
# make games data
games_table <- data.frame(table(games))
games_table$player <- gsub(" game end", "", games_table$games) # player ID
# merge data
players <- merge(players, games_table, all.x = TRUE)
# create score
players$score <- 10 - ifelse(is.na(players$Freq), 0, players$Freq)

#    player            games Freq score
# 1 player1 player1 game end    2     8
# 2 player2 player2 game end    2     8
# 3 player3 player3 game end    1     9
# 4 player4 player4 game end    2     8
# 5 player5             <NA>   NA    10
# 6 player6 player6 game end    3     7

我想根据比赛结果给分，但是出现错误

I want to give a score based on the result of the game, but an error occurs

r

scoring