在tibble列中查找最长的连续条纹

# 将tibble列转换为向量
vector <- as.vector(tibble_column)

# 初始化变量
current_streak <- 1
max_streak <- 1

# 遍历向量
for (i in 2:length(vector)) {
  # 判断当前元素是否与前一个元素相同
  if (vector[i] == vector[i-1]) {
    # 连续条纹长度加1
    current_streak <- current_streak + 1
  } else {
    # 重置连续条纹长度为1
    current_streak <- 1
  }
  
  # 判断当前连续条纹长度是否大于最长连续条纹长度
  if (current_streak > max_streak) {
    # 更新最长连续条纹长度
    max_streak <- current_streak
  }
}

# 返回最长连续条纹长度作为结果
max_streak