如何在R中循环分析，同时迭代地删除/替换原始数据集中的行？

# 创建一个示例数据集
data <- data.frame(
  id = c(1, 2, 3, 4, 5),
  name = c("Alice", "Bob", "Charlie", "David", "Eve"),
  score = c(80, 90, 75, 85, 95)
)

# 循环遍历数据集
for (i in 1:nrow(data)) {
  # 获取当前行的分数
  score <- data$score[i]
  
  # 判断分数是否小于80
  if (score < 80) {
    # 删除当前行
    data <- data[-i, ]
  } else if (score > 90) {
    # 替换当前行的分数为100
    data$score[i] <- 100
  }
}

# 打印最终结果
print(data)