计算赢率

Question

我想从具有一系列获胜和失落teamID的数据集中创建一个赢/输比率。数据集看起来像这样：

WTeamID LTeamID
11      12
12      13
11      13

我正在尝试获取如下所示的数据集：

TeamID  WLRatio
11      1.0
12      0.5
13      0.0

Answer 1

一种直接的方法是将第一列的计数除以两列的计数：

res <- table(factor(df$WTeamID, levels = unique(unlist(df)))) / table(factor(unlist(df)))

as.data.frame(res)

  Var1 Freq
1   11  1.0
2   12  0.5
3   13  0.0