R NBA四分之一比赛剩余秒数转换为比赛剩余秒数

我有一个数据框，有两列（“四分之一”和“左秒”）。以下是用于可视化目的的外观：

Quarter         SecLeft
1                 720
1                 718
.
.
2                 720
2                 716
.
.
3                 720
3                 715

以下是我希望我的专栏的样子：

Quarter          SecLeft
1                 2880
1                 2878
.
.
2                 2160
2                 2156
.
.
3                 1440
3                 1435

---

因此，本质上，我只想能够转换Seconds left列，使其成为游戏中剩下的秒数，而不是每个季度剩下的秒数。如果有人对我如何做到这一点有任何想法，我将不胜感激！谢谢大家!

你只需要一个数学运算

根据您的数据：

df <- read.table(text = "Quarter  SecLeft
1        720
1        718
2        720
2        716
3        720
3        715", header = TRUE)

df112880
#> 2       1    2878
#> 3       2    2160
#> 4       2    2156
#> 5       3    1440
#> 6       3    1435

720秒每季度整个游戏总共2880秒类似于

df['SecLeftGame']=（（4-df$quarter）*（60*12））+df$SecLeft

？现在还不完全清楚你想要什么，一刻钟有多长。这将是NBA的。

df$SecLeft <- df$SecLeft + (4-df$Quarter)*720
df

#>   Quarter SecLeft
#> 1       1    2880
#> 2       1    2878
#> 3       2    2160
#> 4       2    2156
#> 5       3    1440
#> 6       3    1435