Question

随着板球世界杯的进行，我想使用R为Day Day Internationals创建自己的Duckworth-Lewis计算器。

这是我分配给自己的一项挑战，目的是促使我自己进一步了解R以及我可以做什么。达克沃斯-刘易斯（Duckworth-Lewis）是板球比赛中的一种算法，当意外延误（尤其是恶劣的天气）成为焦点时。该算法（在“一日国际赛”中）涉及计算第2队的面值，即“第2队目标”等于“第1队得分”乘以“第2队资源”和“第1队资源”的商，然后将1加到找到目标（否则为南非2003年世界杯足球赛创造了空间）。

team2_target = function(team1_score, team1_resources, team2_resources) {
  return((team1_score * (team2_resources/team1_resources) + 1)
}

我想让我的函数使用丢失的小门数量以及剩余的余量来计算“ Team 2 Resources”变量。例如，如果第1团队在其全部50个得分中得分277，而第2团队在40个得分之后失去了4个小门，则我希望能够使用“ Overs”和“ Wickets Lost”作为变量。听起来确实很简单，但是这两个因素都很重要，而且如果我想要的任何一个变量发生变化，team2_resources变量本身也会发生变化。

Answer 1

这是做您所需的一种方法。

首先，我使用一个函数从excel表中查找team 2的资源（您需要将文件的路径更改为存储DuckworthLewisStern.xlsx的位置）。我使用dplyr函数进行查找。有关更多信息，请参见this SO question，有关rlang软件包中的担保更新，请参见this。

然后，我获取该函数的输出，并将其输入到您的team2_target函数中，以获取针对1个小门丢失和37个超速的例子的目标值。

library(dplyr)
DLdf <- readxl::read_xlsx("~/Downloads/DuckworthLewisStern.xlsx")

head(DLdf)

# A tibble: 6 x 11
  `Wickets Lost`    `0`    `1`    `2`    `3`    `4`    `5`    `6`   `7`    `8`    `9`
  <chr>           <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl> <dbl>  <dbl>  <dbl>
1 Overs Left     NA     NA     NA     NA     NA     NA     NA     NA    NA     NA    
2 50              1      0.934  0.851  0.749  0.627  0.49   0.349  0.22  0.119  0.047
3 49              0.991  0.926  0.845  0.744  0.625  0.489  0.349  0.22  0.119  0.047
4 48              0.981  0.917  0.838  0.74   0.622  0.488  0.349  0.22  0.119  0.047
5 47              0.971  0.909  0.832  0.735  0.619  0.486  0.349  0.22  0.119  0.047
6 46              0.961  0.9    0.825  0.73   0.616  0.485  0.348  0.22  0.119  0.047

# a function to look up team 2's resources

get_team2_resources <- function(wickets_lost, overs_left) {

  # convert the input arguments so we can use them in the filtering and selecting below
  wl <- as_label(enquo(wickets_lost))
  ol <- as.character(overs_left)

# do the filtering to get the value we want
  DLdf %>% 
    filter(`Wickets Lost` == ol) %>% 
    select(wl) %>% 
    pull() 
}

# your existing team2_target function
team2_target = function(team1_score, team2_resources) {
  return((team1_score * team2_resources) + 1)
}

# EXAMPLE: what are the team 2 resources when 1 wicket is lost and 37 overs are left?
t2res <- get_team2_resources(wickets_lost = 1, overs_left = 37)
t2res
[1] 0.809

# what is the team 2 target when team 1 have scored 100?
team2_target(team1_score = 100, team2_resources = t2res)
[1] 81.9

Duckworth-Lewis-Stern计算器计算修订后的目标

1 个答案: