检查data.frame列中的所有值是否都是整数，以子集虚拟变量，也就是同一列中的所有值是否都为真？

# 检查data.frame列中的所有值是否都是整数
check_integer_values <- function(df) {
  is_subset_dummy <- TRUE
  
  # 遍历每一列
  for (col in names(df)) {
    # 检查列中的值是否都是整数
    if (!all(sapply(df[[col]], is.integer))) {
      is_subset_dummy <- FALSE
      break
    }
  }
  
  if (is_subset_dummy) {
    print("该data.frame的所有列都是子集虚拟变量，即同一列中的所有值都为真。")
  } else {
    print("该data.frame的某些列不是子集虚拟变量，即同一列中的值不全为真。")
  }
}

# 示例数据
df <- data.frame(
  col1 = c(1, 2, 3),
  col2 = c(4, 5, 6),
  col3 = c(7, 8, 9)
)

# 检查data.frame列中的所有值是否都是整数，并判断是否为子集虚拟变量
check_integer_values(df)