在R中创建一个变量，该变量指示数字“子组”行数是否等于每个组的“总”行数

# 创建一个示例数据框
df <- data.frame(
  group = c("A", "A", "A", "B", "B", "C"),
  subgroup = c(1, 2, 3, 1, 2, 1)
)

# 计算每个组的总行数
total_rows <- tapply(df$subgroup, df$group, length)

# 创建一个变量来指示子组行数是否等于总行数
df$is_equal <- sapply(df$group, function(g) {
  length(df$subgroup[df$group == g]) == total_rows[g]
})

# 查看结果
df