基于前一行的循环条件

Question

我有一个按每场比赛的顺序记录足球比赛比赛的数据库。我想制作一个 for 循环来检查射门得分（前一排）之前的比赛是否是另一支球队的超时。我尝试在下面使用 [i - 1]，但由于出现错误，我不确定这是否有效。

for (i in 1:nrow(example)) {
 if (example$field_goal_attempt[i] == 1 & example$timeout[i-1] == 1 & example$timeout_team[i-1] != 
example$posteam[i-1]) {
example$iced[i] == 1
} else {
 example$iced[i] == 0
}
}

example <- data.frame(game_id = c(10,10,10,10,10,13,13,13,13,13), 
field_goal_attempted = c(0,0,0,1,0,0,0,0,0,0), time_out = 
c(0,0,1,0,0,0,0,0,0,0), posteam = 
c("PIT","PIT","PIT","PIT","PIT","ATL","ATL","WAS","WAS","WAS"), timeout_team 
= c(NA, NA, "TEN",NA,NA,NA,NA,NA,NA,NA))

在新窗口中显示清除输出展开/折叠输出 if (example$field_goal_attempt[i] == 1 & example$timeout[i - 中的错误： 参数长度为零

Answer 1

您基本上可以通过两种方式查看问题的逻辑：

1. for 循环遍历剧本，就像在您的情况下一样 - 也就是说，i 代表一个投篮得分，i-1 代表之前的剧本。正如@SmokeyShakers 所建议的那样，您将从 2 开始：

for (i in 2:nrow(example)) {
 if (example$field_goal_attempt[i] == 1 && example$timeout[i-1] == 1 && example$timeout_team[i-1] != example$posteam[i-1]) {
  example$iced[i] <- 1
 } else {
 example$iced[i] <- 0
 }
}

请注意，我还建议您使用&& 而不是&，因为在前一种情况下，逻辑语句被逐个评估并在第一个FALSE 处停止，而后者 (&) 会评估 if 语句的所有部分，即使遇到错误的部分也是如此，因此会浪费计算时间。 此外，正如 cmets 中的 @Jorge 所建议的那样，我还将 == 替换为赋值运算符 <-，因为在我看来您希望分配 1 或 0 , 不计算 example$iced[i] 是否分别等于 1 或 0 的逻辑语句。

1. 查看此问题的另一种方法是考虑由i 表示的潜在超时，目标尝试是i+1，并且您的循环需要提前1 终止：

for (i in 1:(nrow(example)-1)) {
 if (example$field_goal_attempt[i+1] == 1 && example$timeout[i] == 1 && example$timeout_team[i] != example$posteam[i]) {
  example$iced[i+1] <- 1
 } else {
 example$iced[i+1] <- 0
 }
}