检查dataframe在R中的循环中是否有2个以上的唯一值

library(dplyr)
library(tidyr)

df <- data.frame(
  id = c(1, 2, 3, 4, 5),
  name = c("John", "Jane", "John", "Jane", "John")
)

df_unique <- df %>%
  group_by(name) %>%
  summarize(unique_count = n_distinct(id))

if (any(df_unique$unique_count > 2)) {
  print("dataframe中存在循环中有2个以上的唯一值")
} else {
  print("dataframe中循环中的唯一值都不超过2个")
}