如何在R data.frame中查找和删除包含k个以上连续零的列？

# 创建一个示例的data.frame
df <- data.frame(
  A = c(1, 0, 0, 1, 1),
  B = c(0, 0, 0, 0, 1),
  C = c(1, 0, 1, 0, 1),
  D = c(0, 0, 0, 0, 0)
)

# 设置连续零的阈值k
k <- 2

# 遍历每一列
for (col in names(df)) {
  # 计算连续零的数量
  rle_result <- rle(df[[col]])
  
  # 检查连续零的数量是否大于等于k
  if (sum(rle_result$values == 0 & rle_result$lengths >= k) > 0) {
    # 删除包含k个以上连续零的列
    df <- subset(df, select = -col)
  }
}

# 打印结果
print(df)