如何检查r中每列是否至少有一个case？

# 创建一个示例数据框
data <- data.frame(
  col1 = c(1, 0, 1, 0),
  col2 = c(0, 0, 0, 0),
  col3 = c(1, 1, 0, 1)
)

# 使用colSums()函数检查每列是否至少有一个case
has_case <- colSums(data) > 0

# 输出检查结果
has_case

col1  col2  col3 
 TRUE FALSE  TRUE