识别R中排名的不同列中的平局

library(dplyr)

# 创建一个示例数据框
df <- data.frame(
  name = c("A", "B", "C", "D", "E", "F", "G"),
  score1 = c(90, 80, 70, 60, 50, 40, 30),
  score2 = c(80, 70, 60, 50, 40, 30, 20),
  score3 = c(70, 60, 50, 40, 30, 20, 10)
)

# 使用group_by()和mutate()函数创建计数列
df <- df %>%
  group_by(score1, score2, score3) %>%
  mutate(count = n())

# 使用ifelse()函数标记平局
df$is_tie <- ifelse(df$count > 1, "平局", "非平局")

# 查看结果
df

# 使用ave()函数计算每个排名的计数
df$count <- ave(1:nrow(df), df$score1, df$score2, df$score3, FUN = length)

# 使用duplicated()函数标记平局
df$is_tie <- ifelse(duplicated(df$count) | duplicated(df$count, fromLast = TRUE), "平局", "非平局")

# 查看结果
df